











“3 ouverture des Apple à la 
communication dans les 
_pages de Pom's se 
J'me poursuit par un 
programme qui allie au «savoir 
communiquer» de CalvaCom 
l'indispensable liaison à 
l'ordinateur. 






CalvaCom 


Pour les lecteurs non encore au fait des 
possibilités de CalvaCom, une 
présentation sommaire s'impose. Il se 
différencie des serveurs habituellement 
consultés à l'aide du Minitel par 
plusieurs points : 
+ on y accède par le 36 13 (ou 
36 00 36 01, une unité toutes les 6 
mn moins réduction d'horaires), le coût 
de connexion étant réglé directement à 
CalvaCom (prélèvement ou carte 
bancaire) ; 
e la consultation se fait sans caractère 
graphique : seuls les caractères ASCII 
arrivent au modem ou au Minitel. Ce 
dernier affiche les messages en mode 
“rouleau” tel une imprimante ; 


+ passer de menus en menus est bien 
plus simple et efficace que sur les 

serveurs kiosque, l'accès à l'information 

est particulièrement rapide ; 

+ il a été conçu dans l'optique de la 
connexion à l'ordinateur : les 

informations disponibles sont réellement 

exploitables par le micro. 


CalvaCom met à la disposition des 
abonnés : 


+ une messagerie électronique qui 
permet à chacun de classer ses 

messages, de répondre simplement, de 

recevoir des messages directement de 

l'ordinateur de l'abonné pour éviter de 

perdre du temps à les composer en 

direct ; 

+ le service TELEX, en émission et 
réception ; 

* des forums électroniques ; 

+ un système de téléconférence (convi- 
vialité) ; 

+ un système de petites annonces ; 


+ des magazines électroniques ; 

+ des bibliothèques de programmes 
téléchargeables ; 

+ les dépêches de l'Agence France 
Presse ; 

«les cours de la bourse avec possibilité 
de passer des ordres ; 

* des ‘cités’ centrées sur Atari, IBM, 

Apple //, Macintosh... 


Le programme 
CLV_POMS 


Proposé en version Apple // et en 
version Macintosh, CLV_POMS donne 
les possibilités suivantes : 


+ enregistrement de consultations 

CalvaCom. Les fichiers constitués 
sont récupérables par votre traitement de 
texte, votre tableur... et ils ne sont 
limités en dimension que par la capacité 
de votre support disque ; 


+ mode téléscripteur : impression au 

fur et à mesure de la réception, mode 
particulièrement efficace lors de 
l'écoute” des dépêches AFP (qui 
tombent au fur et à mesure de l'actualité) 
ou des cours de la bourse ; 


+ exportation de fichiers vers 

CalvaCom : vous voulez passer une 
petite annonce, nous laisser un message 
(le code de Pom’'s est EMP11), 
participer à un forum, constituer un 
fichier sur le serveur pour utilisation 
ultérieure ? Préparez-le en traitement de 
textes et envoyez-le par cette option : il 
sera transmis sans protocole mais au 
bon débit, en respectant la mini-pause de 
fin de ligne ; 


+ procédures : c'est une utilisation 

particulière du mode précédent. Il est 
possible de préparer un texte 
comprenant les options choisies pour 
une consultation habituelle et de 
l'envoyer à CalvaCom pour atteindre 
plus rapidement et sans erreur les 
informations. Pour consulter 
automatiquement les publicités du forum 
Macintosh, la procédure pourrait être la 
suivante : 


N°_ abonné 


Mot_de passe 
ci 





facintosh 


mac 
fo pub 


Des pauses peuvent être incluses dans le 
fichier pour tenir compte du temps 
d'affichage des nouveautés après le mot 
de passe par exemple. 


+ impression d'un fichier de textes sur 

disque : il s'agira souvent du résultat 
de votre dernière connexion ou d'une 
dernière vérification de votre texte avant 
exportation. 


Bien entendu, les programmes 
CLV_POMS recodent les minuscules 
accentuées tant en émission qu'en 
réception, tant sur le Mac que sur 
l'Apple //, tant avec un Minitel 40 
colonnes que sur le 80 colonnes. 


Configuration 


CLV_POMS fonctionne sur : 


Apple ][+ avec ROM minuscules, 
carte langage et carte Super Série Apple ; 
Apple //e avec carte Super Série 
Apple ; 

Apple //c; 

Apple IIGS sur son port modem 
intégré ou avec une carte SSC ; 
Macintosh 128, 512, Plus ou SE. 


I! nécessite : 

- un modem ou un Minitel (les modèles 
80 colonnes sont bien plus 
agréables), 

- un câble de liaison disponible à la 
revue. 


La disquette 


CLV_POMS, écrit en assembleur, est 
livré sur une disquette 3'5 pour 
Macintosh et au choix 525 ou 3'5 pour 
l'Apple //. 


La version Apple // fonctionne sous 
ProDOS avec tous les volumes 
(disquettes 140Ko, 800Ko, disque 
/RAM, Speedisk, disques durs...). 
La version Mac fonctionne avec tous les 
supports, tant en MFS qu'en HFS. 


CLV_POMS : 200,00 F TTC, câble de 
liaison 225,00 F, bon de commande 
page 74. 
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C'est LA NOUVELLE REVUE de l'utilisateur pointu de "Macintosh". 
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Éditorial 


Une fois n'est pas coutume, voici en couverture — et sur 
fond de loisirs estivaux — une illustration du 
fonctionnement de deux programmes que vous pourrez 
trouver dans ce numéro : Schémateur, volumineux, 
dans le domaine de la création graphique et Peeks/Pokes 
longs qui en fait voir de toutes les couleurs — ou presque 
— Sur l'Apple IIGS et derrière le logo “Pom's”. 


Pom's poursuit sa lancée dans l'exploration des voies 
communicantes en vous proposant trois disquettes 
éditées en dehors des pages de la revue : 


InterPom's — le programme qui, depuis le numéro 28, 
relie vos Apple /} etjou Macintosh par téléphone via 
Minitel — a reçu de nombreuses améliorations dans la 
version 2, version capable de communiquer de la même 
manière avec les micros IBM® et compatibles. 


CLV_Pom's vous est proposé pour répondre aux besoins 
de nombre de lecteurs abonnés à CalvaCom. Que se soit 
pour Apple /] ou Macintosh, CLV_Pom's se présente 
sous la forme d'une application autonome et est 
compatible ‘toutes configurations’. 


Enfin, un éditeur vidéotex en CP/M, pour les Apple /] 
munis d'une carte 80 colonnes ainsi que d'une carte Z80. 


Communiquer n'a pas été facile pour tous nos lecteurs ; 
vous êtes nombreux à avoir attendu longtemps -— parfois 
un mois — la réception de votre câble Apple/Minitel 
décrit dans les numéros 27 et 28. En effet, nous avions 
envisagé la distribution de ce type de câble comme un 
service aux lecteurs qui n'avaient pas la possibilité 
d'effectuer la réalisation eux-même, or, la parution 
d'articles dithyrambiques dans d'autres pages que celles 
de Pom's nous a valu un afflux de commandes auquel 
nous ne nous attendions pas. Tout est désormais rentré 
dans l'ordre et nous prions ceux d'entre-vous qui ont 
attendu de bien vouloir nous excuser de ce retard 
regrettable. 


Pour revenir au numéro 31 proprement dit, et sans aller 
jusqu'à décrire chaque article (il y en a beaucoup et ce 
serait trop long pour un éditorial !), on peut signaler la 
présence de trois bancs d'essais dont deux ‘hard’ pour 
l'Apple [| : la carte vocale Valentine et le ‘disque-RAM' 
Speedisk. Le banc d'essai ‘soft’ est celui de Writer +, 
traitement de textes pour Macintosh. 


Hervé Thiriez 




















sur Apple II Ge S 


‘3 Applesoft semble 
bien perdu devant 
254 des 255 bancs 
de 64Ko du IIGS. 
En effet, comment accéder 
depuis le Basic à la ROM en 
page 255, à la page Super 
Haute Résolution en page 
225 (adresses 14 753 792 à 
14778 367) par exemple ? 


La petite routine présentée ici dote 
le Basic de PEEK et POKE 
longs, c'est-à-dire accédant à 
l'ensemble de la mémoire. Deux 
programmes de démonstration en 
illustrent les possibilités. 





Mode d'emploi 


La routine s'installe à l'adresse 
$300, mais ne demande qu'à être 
assemblée ailleurs en cas de 
besoin. 

L'initialisation se fait en mode 
direct par : 

- PIC.POC 

et dans un programme par : 
PRINT CHRS(4)"-PIC.POC" 


Voici la syntaxe des commandes 
disponibles : 


& PEEK page, adresse, var% 


Page est le numéro en décimal du 
banc où la lecture se fera. 


Adresse est l'adresse en décimal 
dans ladite page. 


Var% est la variable entière qui 
recevra la valeur de l'octet 
souhaité. 


Par exemple : 
& PEEK 255, 65535, GF% 





affectera à GF% la valeur de la 
dernière adresse mémoire. 

& PEEK 1-1,MLI,A1%(2) 
affectera à la 3ème variable du 
tableau A1% la valeur 76 si on a 
définit MLI=48896 ($BF00) et 
que ProDOS est actif. 


Page supérieure à 255 et adresse 
supérieure à 65535 conduisent à 
un «lllegal quantity error» mérité. 
Si la variable réceptrice n'est pas 
entière (%), l'utilisateur sera 
gratifié du «Type mismatch 
error». 


& POKE page, adresse, valeur 


Même principe pour Page et 
Adresse ; Valeur sera comprise 
entre O0 et 255 sous peine de 
message d'erreur. 


Des exemples 


Le programme LIT.MESS.GS 
est une illustration du PEEK : il 
lit et affiche les messages stockés 
en page 255 (ROM), 
particulièrement ceux affichés par 
le tableau de bord. 


Cette zone est visée par un 
pointeur dont l'adresse est 
donnée en $E100C0/E100C2. 
Sous réserve de bien respecter les 
conventions “poids fort à 1, 
poids fort à 0”, il suffit de 
changer cette adresse et le GS 
affichera votre table de message 
en français par exemple. 


Le programme GSCOLOR ne fait 
qu'un dégradé de couleurs en 
page Super Haute Résolution, 
semblable à celui de la couverture 
de ce numéro. Il prend son temps 
(9 minutes en mode rapide...) 
mais illustre le fonctionnement du 











ces | ONFS 


Christian Piard 


&POKE par 64000 points à 
l'écran. On peut rappeler 
succinctement la structure d'une 
page SHGR. 


La SHGR 


Une telle page se situe dans la 
page $E1 (225) entre $2000 et 
$SOFFF. 


de $9E00 à $S9FFF 


16 palettes de 16 couleurs 
chacune composée de 2 octets ou 
32 bits : 

4 bits pour le vert 

4 bits pour le bleu 

4 bits à O 

4 bits pour le rouge 


On obtient un jaune vif avec : 
FOOF c'est-à-dire seize 16èmes 
de vert, zéro 16ème de bleu et 
seize 16èmes de rouge. 


de $9D00 à $9DC7 

200 octets (1 par ligne à l'écran) 
dont les 4 bits de poids faible 
donnent le numéro de la palette 
qui sera utilisée par la ligne 
concernée. 

Le bit 7 sera à O0 si la ligne 
comprend 320 point, c'est le cas 
dans notre exemple. 


Le bit 6 à 1 provoquerait une 
interruption en fin de ligne pour 
changer une couleur de la palette 
avant affichage de la ligne 
suivante par exemple. 


de $2000 à $9CFF 


32000 octets pour les 64000 
points à l'écran (200 lignes de 
320 pixels). Chaque point est 
représenté par un demi octet qui 
indique, de 0 à 15 le numéro de 
sa couleur dans la palette réservée 
pour la ligne considérée. œ 
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Source PIC.POC.S 
Assembleur ProCODE 


0 

1 fonanmssmmmmmmmmmmmmmmmetsss— 

2 * PEEK & POKE LONGS SUR APPLE IIGS 

D HP ras rrnninisasdens riens 

4 

5 DSK PIC.POC 

6 

7 AMPERV = $3F5 ; vecteur #4 

8 FRNUM = $DD67 ; calcule une formule 

9  CHKCOM = $DEBE + virgule ? 

10 GETADR = $E752 ; FAC -> entier 

11 GETBYTC = $E6F5 ; formule sur un octet 

12 PTRGET = $SDFE3 ; recherche d'une variable 
13 MISMATCH = $DD76 ; message type mismatch 
14 VARNAM = $81 ; nom de la variable 

15 VARPNT = $83 ; pointeur sur sa valeur 
16 

17 ORG $300 
18 

19 LDA  AMPERV#1 ; vecteur déjà installé ? 
20 CMP  #<DEBUT 
21 BNE  INIT 

22 LDA  AMPERV+#2 

23 CMP  #>DEBUT 

24 BEQ INITOK 

25 INIT LDA  AMPERV+]1 ; non, on sauvegarde l'éventuel 
26 STA  ANCVEC ; ancien vecteur 

27 LDA  AMPERV+2 

28 STA ANCVEC+1 

29 LDA #$4C ; et on installe le nouveau 
30 STA AMPERV 

31 LDA  #<DEBUT 

32 STA AMPERV4#1 

33 LDA #>DEBUT 

34 STA AMPERV+2 

35  INITOK RTS 

36 

37 DEBUT CMP  #$B9 ; est-ce POKE 

38 BEQ POKE 

39 CMP  #$E2 » est-ce PEEK 

40 BNE AUTRE 

41 

42 PEEK LDX #$FF ; c'est PEEK 

43 STX DP_PEEK ; on positionne un drapeau 
44 BMI POKEI 

45 

46 POKE LDX #0 ; c'est POKE 

47 STX DP_PEEK 

48 POKEI JSR GETBYTC ; ler paramètre = 1 octet 
49 STX N_PAGE ; c'est le n° de page de 64Ko 
50 STX N_PAGE1 

51 

52 JSR  CHKCOM ; virgule ? 

53 


JSR  FRNUM ; 2ème paramètre sur deux octets 
JSR  GETADR ; c'est l'adresse 

LDX $50 ; on prépare l'adresse du Peek 
STX ADRESSE ; où du Poke 

STX ADRESSE] 

STA ADRESSE+1 

STA ADRESSE1+1] 

BIT DP_PEEK ; est-ce Peek ? 

BMI S_PEEK 


JSR GETBYTC 
STX A _ POKER 


; Jème paramètre : octet à poker 


JMP  LPOKE ; on poke 

S_PEEK JSR CHKCOM + virgule ? 
JSR PTRGET ; cherche pointeur sur variable 
STA VARENT ; le sauve 
STY VARPNT+1 
LDA  VARNAM ; la variable doit être entière 
AND VARNAM+1 ; C8, CA$ ou D$#(4) par exemple 
BMI ji 


JMP  MISMATCH ; sinon Type mismatch error 


11 JSR  LPEEK ; on va chercher l'octet 
LDY #1 ; et on le stocke à l'adresse 
STA  (VARPNT),Y ; de la variable choisie 
DEY 
TYA 
STA  (VARPNT),Y 
RTS 
AUTRE JMP  (ANCVEC) ; saute à l'ancien vecteur 
LPOKE DFB $18 # CLC 
DFB $FB ; XCE passage en 16 bits 
DFB $A9 ; LDA #donnée 
A_POKER DFB O0 
DFB $8F ; STA $000000 
ADRESSE DFB 0,0 “ 
N_PAGE  DFB 0 6 
FIN DFB $38 ; SEC Retour au 6502 
DFB  $FB ; XCE 
DFB $60 ; RTS 
LPEEK  DFB $18 # CLC 
DFB $FB ; XCE 
DFB $AF ; LDA $000000 


ADRESSE1 DFB 0,0 
N_PAGEL DFB O0 
DFB $80,$F5 ; BRA FIN 


ANCVEC DA $FF58 ; PTS par défaut 
DP PEEK DS 1 





Programme LIT.MESS.GS 


5 PRINT CHRS$S (4)"-PIC.POC 

10 FOR I = 35374 TO 37261: & 
8:G$ = G$& - 128 * (G8& > 127): ON NOT G 
$ GOSUB 100: IF G$ > 31 THEN PRINT CH 


R$ (G3%); 
20 NEXT 
30 END 


100 PRINT : RETURN 


Programme GSCOLOR 


Temps d'exécution : 9 mn. 
1 PRINT CHR$ (4)"-PIC.POC 
10 U = PEEK (49204): POKE 49204,0: REM 
Sauvegarde de la couleur des 
bords, puis mise au noir 
15 POKE 49193,161 


16 A$ = "E1/9 N O<2000.9FFFZ N 5<9D60.9DC7Z 


N O<9ECO.9EDFZ N 0/9 N D823G" : REM 
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PEEK 255,1,G 


17 


20 
30 


40 


50 


60 


70 


72 


Effaca l'eansembla SHGR, 
SHLAM 

FOR I = 1 TO LEN (A$): POKE 511 + I, À 
SC ( MIDS$ (A$,1I,1)) + 128: NEXT : POKE 
72,0: CALL - 144 

REM Construction des palettes 
FOR I = O0 TO 30: & POKE 225,40448 +# I, 
240:I = I + 1: & POKE 225,40448 + I,I 
/ 2: NEXT 

FOR I = O0 TO 30: & POKE 225,40448 + I 
+ 32, (30 - I) * 8:I = I + 1:-& POKE 22 
5,40448 + I + 32,15: NEXT 

FOR I = O0 TO 30: & POKE 225,40448 + I 
+ 64,I / 2:I = I + 1: & POKE 225,40448 

+ I + 64,15: NEXT 
FOR I = O0 TO 30: & 
+ 96,15:I = I + 1: & 
96, (31 - I) / 2: NEXT 

FOR I = O TO 30: & POKE 225,40448 + I 
+ 128,15 + I * 8:I = I + l: & POKE 225 
, 40448 + I + 128,0: NEXT 

FOR I = O TO 30: & POKE 225,40448 + I 
+ 160,240 + (30 - I) / 2:I = I + 1: & 


routine 


POKE 225,40448 + I 
POKE 225,40448 + 














POKE 225,40448 + I + 128,0: NEXT 40448 + I + 128 + 192,0: NEXT 
73 FOR I = 0 TO 30: & POKE 225,40448 + I, 78 FOR I = O0 TO 30: & POKE 225,40448 + 
240: & POKE 225,40448 + IT + 192,240:1I + 160,240 + (30 - I) / 2: & POKE 225,4 
= I + 1: & POKE 225,40448 + I,I / 2: & 0448 + I + 160 + 192,240 + (30 - I) / 2 
POKE 225,40448 + I + 192,17 / 2: NEXT ÿ I + 1: & POKE 225,40448 + I + 128 
74 FOR I = O TO 30: & POKE 225,40448 + I ,0: & POKE 225,40448 + I + 128 + 192,0 
+ 32, (30 - I) * 8: & POKE 225,40448 + NEXT 
I + 32 + 192, (30 - I) * 8:I = I + l: & 100 REM Installation des pointeurs 
POKE 225,40448 + I + 32,15: & POKE 22 110 FOR I = 40192 TO 40192 + 176 STEP 16: 
5,40448 + IT + 32 + 192,15: NEXT FOR J = 0 TO 15: & POKE 225,1 + J,{i -— 
75 FOR I = O TO 30: & POKE 225,40448 + I 40192) / 16: NEXT : NEXT 
+ 64,I / 2: & POKE 225,40448 + I + 64 200 REM Remplissage de la page 
+ 192,17 / 2:I = I + 1: & POKE 225,4044 210 FOR À = 8192 TO €192 + 5 * 2560 STEP 2 
8 + I + 64,15: & POKE 225,40448 + I + 560 
64 + 192,15: NEXT 220 FOR B = O TO 15 
76 FOR I O TO 30: & POKE 225,40448 + I 230 FOR C = O0 TO 159 
+ 96,15: & POKE 225,40448 + I + 96 + 1 240 AD = À + B * 160 + C: & POKE 225,AD,B 
92,15:I = I + 1: & POKE 225,40448 + 1] + B * 16 
+ 96,(31 - I) / 2: & POKE 225,40448 + 245 & POKE 225,AD + 15360,B + B * 16 
TI + 96 + 192, (31 - I) / 2: NEXT 250 NEXT : NEXT : NEXT 
77 FOR I = O TO 30: & POKE 225,40448 + 1] 999 PRINT CHRS$S (7): GET R$: POKE 49193,65 
+ 128,15 + I * 8: & POKE 225,40448 + I 1000 POKE 49204,U: REM Restaure la 
+ 128 + 192,15 + I * 8:I = I + 1: & P couleur des bords 
OKE 225,40448 + I + 128,0: & POKE 225, 
Récapitulation 0308:F7 03 C9 03 FO 1B AD F6 0358:8D 94 03 8D 9D 03 2C A3 
0310:03 8D A1 03 AD F7 03 8D 0360:03 30 09 20 F5 E6 8E 91 
PIC POC 0318:A2 03 A9 4C 8D F5 03 A9 0368:03 4C 8E 03 20 BE DE 20 
. 0320:2A 8D F6 03 A9 03 8D F7 0370:E3 DF 85 83 84 84 A5 81 
0328:03 60 C9 B9 FO OB C9 E2 0378:25 82 30 03 4C 76 DD 20 
Après avoir saisi cette récapitulation 0330:D0 59 A2 FF 8E A3 03 30 0380:99 03 AO 01 91 83 88 98 
sous moniteur, vous la sauvegarderez 0338:05 A2 00 8E A3 03 20 F5 0388:91 83 60 6C A1 03 18 FB 
par : BSAVE PIC.POC, A$300, LSA4 0340:E6 8E 95 03 8E 9E 03 20 0390:A9 00 8F 00 00 00 38 FB 
0348:BE DE 20 67 DD 20 52 E7 0398:60 18 FB AF CO 00 00 80 
0300:AD F6 03 C9 2A DO 07 AD 0350:A6 50 8E 93 03 8E 9C 03 03A0:F5 58 FF 00 


Un conseil ? 
Un problème 7? 
Un souhait 7... 


Le Basic et l'heure 


En Basic sous ProDOS, il 
existe un moyen simple 


24 heures sur 
24, laissez 


faire CLOSE ; l'octet 49043 donne 
alors l'heure, et le 49042 les 


d'obtenir l'heure dans le but de minutes. 
mesurer un ss Par exemple, le programme : voire 
par exemple. Nul besoin 10 HOMÉ 
d'appeler une commande 20 PRINT CHRS (4) "CLOSE message sur 
externe ou d'écrire la 30 VTAB 10: PRINT PEEK(4 CalvaCom. 
mini-routine qui appellerait 9043)" heures “PEEK ( 
GET TIME et remettrait à ANON EP 7 MERRCeS 
a 40 GOTO 20 


l'heure les octets $BF90 à 
$BF 98. 


Le code 
d'abonné de 
votre revue, 


affiche l'heure en permanence. 


Bien sûr, il faut une carte horloge 
dans l'appareil ; celle intégrée au 
IIGS ne sera activée qu'avec 
ProDOS 1.2 et suivants. 


Il suffit d'utiliser la routine de 
fermeture des fichiers du 


Basic.Interpreter 1.1 qui se chargera 
du travail : 





G 


c'est empll”. 
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Graphes et fonctions 


Claude-Lucien CAUET 


Ce programme se compose de 
deux parties : 


+ le programme SCHEMATEUR 
permet de dessiner des figures 
en haute résolution (rectangles, 
cercles, ellipses...) avec des 
textes incorporés (y compris un 
jeu de caractères mathématiques). 
Par ailleurs, il est possible de 
remplir les surfaces avec des 
motifs variés, de déplacer l'image 
(ou une partie) dans toutes les 
directions : centrage, mixage, 
image géante de trois écrans. On 
peut enfin travailler simulta- 
nément avec deux images 
superposées, les mettre en 
réserve (jusqu'à cinq en mémoire 
auxiliaire), inverser la couleur. 
Bref, un programme ambitieux. 


+ le programme FONCTION 

permet de tracer le graphe de 
fonctions mathématiques de tous 
types, ou leur dérivée, en 
choisissant à loisir l'échelle et la 
fenêtre de visualisation. Les 
tracés sont continus ou pointillés, 
et leur création peut être 


accélérée. Trois écrans gra- 
phiques sont disponibles, dont 
deux superposables. Enfin, une 
fonction est acceptée même dans 





un domaine où elle n'est pas 
définie. 


Ces deux programmes 
communiquent sans problème 
leurs images graphiques, qui 
peuvent être imprimées 
directement sur ImageWriter 
grâce à l'utilitaire GRAVURE. 


Configuration 


Un minimum de 64Ko de 
mémoire est nécessaire ; par 
ailleurs, une paire de ‘paddles” 
(ou un joystick) est recomman- 
dée. Le programme est 
initialement conçu pour un Apple 
Ile ou //c mais doit pouvoir 
tourner sans modification sur un 


]+. 


L'essentiel des modules sont 
écrits en Applesoft et donc 
facilement modifiables. Plusieurs 
fichiers en assembleur complètent 
l'ensemble pour assurer les 
fonctions délicates ou qui 
nécessitent une grande vitesse. 


GRAPHISME fonctionne sous 
DOS 3.3 ; son adaptation à 
ProDOS nécessiterait de revoir 





Strophoïide 





T 
- TÉT< 
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RCTD=-CCOSC2XT) AK 


les fonctions de gestion des 
images en mémoire (actuellement 
conservées dans la carte langage 
et l'éventuelle mémoire auxiliaire 
de la carte 80 colonnes étendues). 


Le démarrage de GRAPHISME 
s'effectue par un simple : 


RUN GRAPHISME 


qui amène sur un premier menu 
proposant l'accès aux deux 
principaux programmes, ainsi 
qu'une option de configuration : 
existence de paddles et nombre de 
lecteurs de disquettes. 


Utilisation 


En lançant le programme, on se 
trouve placé en mode graphique 
et un point lumineux apparaît au 


centre de l'écran. 
Ex 
HE 
€ RL 
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La touche Q permet d'accéder au 
menu principal permettant la 
lecture/écriture d'une image 
graphique, le catalogue d'une 
disquette et de quitter 
SCHEMATEUR. 


Ctrl-Q permet d'obtenir à l'écran 
un rappel des fonctions 
disponibles. 


Déplacement du curseur 


Le curseur graphique se déplace 
sans tracer grâce aux flèches du 
clavier, par saut de douze 
positions. En appuyant 
simultanément sur @ (ou le 
bouton adéquat du joystick), le 
déplacement s'effectue point par 
point, donc beaucoup plus 
lentement. À l'inverse, l'appui de 
G permet de se déplacer par saut 
de quart d'écran. 


La touche TAB (Ctrl-I) permet 
d'activer (ou de désactiver) le 
mode joystick. Le déplacement 
peut alors être effectué beaucoup 
plus rapidement vers la position 
voulue, mais avec moins de 
précision. Il sera donc commode 
d'utiliser alternativement ces deux 
modes. 


Commandes globales 


DEL efface l'écran graphique. 

K définit une couleur : 0 à 7 si 
vous utilisez réellement la 
couleur, ou N,B,G pour 
noir, blanc et gris respec- 
tivement avec un moniteur 
monochrome. 

J inverse totalement la couleur 
de l'écran. 

W échange le dessin courant 


avec un dessin stocké en 
carte langage. 


U  superpose le deuxième dessin 
au dessin courant. 


Commandes de 
positionnement 
et de tracé 


X marque la position du point, 
comme étant le début du 
tracé. Par suite, le dernier 
point du tracé deviendra le 








nouveau point de départ. 


Z marque de manière perma- 
nente le point courant comme 
étant le point de départ de 
tous les tracés suivants. Utile 
pour tracer des cercles 
concentriques ou des droites 
concourantes. 


ESPACE trace un segment de 
droite entre le point de départ 
défini et le point actuel. 


H trace un segment horizontal 
entre le point de départ et la 
verticale passant par le point 
courant. 


V idem mais trace un segment 
vertical. 


R trace un rectangle dont les 
points opposés sont le point 
de départ et le point courant. 


C trace un cercle centré sur le 
point de départ et dont la 
circonférence passe par le 
point mobile. 


D idem mais trace un disque 
plein. 

A trace lentement un cercle dans 
le sens des aiguilles d'une 
montre, interruptible par une 
touche quelconque afin 
d'obtenir un arc de cercle. Le 
tracé est définitivement arrêté 
par RETURN. 


E idem mais trace lentement 
une ellipse centrée sur le 
point de départ et dont les 
demi-axes sont donnés par la 
position du point courant. 


Commandes de 
remplissage 


S remplit une surface de forme 
quelconque, définie par la 
position du point courant et 
délimitée par des limites 
pleines (pas de pointillé). Le 


remplissage peut être 
interrompu par une touche 
quelconque. 

précise le mode de 
remplissage : 

(remplissage complet), 


(lignes verticales), 

(lignes horizontales), 

(points régulièrement espa- 
cés), 

(quadrillage), 


© TI<Q 7% 








(hachures penchées à droite), 
(idem à gauche), 
(losange). 


Le pas peut également être 
défini, ainsi que l'épaisseur 
des traits. 


L indique si le remplissage est 
limité par des points allumés 
ou éteints, ainsi que le mode 
de superposition (par la 
commande U). 


TAC 


On peut gommer par les touches 


‘G (gomme horizontale) ou Y 


(gomme verticale), jusqu'à la fin 
de ce mode par RETURN. 


Commandes de texte 


On entre en mode texte par la 
touche T, et un curseur apparaît. 
Celui-ci se déplace avec les 
lé ainsi qu'avec les touches 


On peut superposer deux 
caractères en revenant en arrière 
après le premier caractère (accent 
circonflexe, tréma). 

L'appui simultané de G fournit 
un jeu de caractères mathéma- 
tiques et grecs. 


DEL efface un caractère. ESC 
donne un curseur mort : il 
n'avance pas (utile pour le 
pivotement), 


Ctrl-A agrandit le caractère, 

Ctrl-Z le réduira (s'il a été 
agrandit). 

Enfin, Ctri-W fait pivoter le 

caractère d'un quart de tour. On 

sort de ce mode texte par 

RETURN. 


Déplacements du dessin 


La touche M active le mode 
déplacement : les flèches 
permettent alors de déplacer le 
dessin, de huit points en huit 
points. 


L'appui simultanée de la touche 
& permet d'enrouler le dessin : 
horizontalement, il roule sur une 
largeur égale à deux écrans ; 
verticalement, sur une hauteur 
d'un écran et demi. Soit un total 
de trois écrans. La touche W 
reste bien sûr opérationnelle pour 
observer la seconde partie de 
l'image horizontale. On ressort de 
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ce mode par Return. 


Définition de fenêtre 


F permet de définir le coin d'une 
fenêtre dont le coin opposé a été 
défini par la touche X. 


Plusieurs options sont alors 
possibles : 


* effacer la fenêtre (touche G) ; 
* la remplir uniformément (R) ; 
+ effacer l'extérieur (D) ou 

* encadrer la fenêtre (E). 

La touche M permet de déplacer 
la fenêtre en superposition sur le 
dessin en cours ; la barre 
d'espace permet ensuite de figer 
le résultat. Dans ce mode, il est 
cu d'utiliser la touche 


Stockage d'images en 
mémoire 


La touche B échange le dessin 
courant avec un dessin stocké en 
mémoire. 


Les fonctions suivantes sont 
disponibles si l'on dispose d'une 
carte 80 colonnes étendues 
(128Ko) : 


O permet d'observer les dessins 
stockés (jusqu'à 5) ; Return 
permet de sortir de ce mode 
d'observation. 


N échange le dessin courant avec 
le dernier dessin visualisé par O. 


J permet de fixer le nombre 
d'images stockées. 


Le programme 
FONCTION 


Trois types de définitions de 
fonction sont disponibles : 


- fonction cartésienne : y = f 
G@) 

- fonction polaire : R = f (T) 
où T est la variable angulaire 
en radians, et R le rayon 
vecteur correspondant 


-__ fonction paramétrique : x = f 
(t) et y = g (t) où x et y sont 
fonctions d'une variable t. 

Il est possible d'incorporer un 

paramètre M dans les équations, 

afin de tracer une famille de 








courbes sans ne faisant varier que 
ce paramètre. 


Programmation des 
fonctions 


Les symboles suivants sont 
disponibles : 


+,—,*,/et À (élévation à la 
puissance) ; ABS,INT,SQR, 
LOG,EXP,SIN,COS, 
TAN, ATN sont semblables à 
leur définition en Applesoft. 
FNLD (logarithme décimal), 
FNSH,FNCH et FNTH 
(sinus, cosinus, tangente hyper- 
boliques) sont par ailleurs 
disponibles. 


N'oubliez pas d'utiliser les 
parenthèses selon les règles 
habituelles de l'algèbre. 


Par la suite, il est seulement 
nécessaire de définir les bornes 
du graphe (en utilisant 
éventuellement les valeurs par 
défaut proposées). 


Options disponibles au 
menu 


P permet d'obtenir la courbe en 
pointillé 

D pour tracer la dérivée de la 
fonction 


S évite de dessiner les axes 


C encadre le graphe et 
RETURN visualise l'écran. 


Ensuite, les touches suivantes 
déclenchent l'opération : 


1 trace le graphe après avoir 
effacé l'écran, 

2 évite l'effacement, 

3 autorise la modification des 
valeurs, 

4 permet de changer de 

fonction, 

5 sauve le graphe sur disque 

(par exemple pour le 

reprendre sous SCHEMA- 

TEUR), 

charge un graphe du disque, 

donne le catalogue, 

retourne au menu. 


00 1 


Options disponibles au 
graphe 


Pendant le cycle de création du 
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graphe, les touches disponibles 
sont : 


Return interrompt le tracé, 

C poursuit le tracé, 

ESC saute dix points de calcul 
et permet ainsi un tracé plus 


rapide, 

TAB revient en arrière de vingt 
points (corrige l'effet 
d'ESC). 


Une fois le tracé terminé, on 
dispose de : 


Return revient au menu initial, 

W_ échange l'écran courant avec 
un deuxième écran 
mémorisé, 

U  superpose ces deux écrans, 

B échange l'écran courant avec 
un écran en 
secondaire 

T inscrit du texte sur l'écran: 
pratiquement toutes les 
sous-options disponibles 
avec SCHEMATEUR sont 
disponibles ici. De plus 
Ctrl-F affiche l'équation sous 
la position du curseur. 


mémoire 


Le programme 
GRAVURE 


Le programme GRAVURE 


permet d'imprimer, sur 
ImageWriter, les images 
graphiques créées par 


SCHEMATEUR ou FONC- 
TION. 


Deux hauteurs d'image sont 
disponibles, ainsi que l'inversion 
des couleurs. On peut également 
jouer avec un jeu de déformations 
horizontales et le positionnement 
de la feuille de papier et de la tête 
d'écriture. 


Fichiers sur la disquette 
Pom’s 


Un grand nombre de modules 
forment l'ensemble de 
GRAPHISME. 


Seuls les sources qui n'ont jamais 
été publiés se trouvent sur la 
disquette. 


GRAPHISME initialisation du 
logiciel, gestion de la 
configuration 
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CONF.C module de configu- 
ration (manuel de la carte 80 
colonnes) 

HEL.C module de nettoyage de la 
mémoire auxiliaire 

T.HEL source de HEL.C 

MENU programme général de 
menu (ne doit pas être 
verrouillé car il peut 
s'auto-modifier) 

SCHEMATEUR le programme 

SHEM.C module assembleur 
d'édition des graphiques 

T.SHEM source de SHEM.C 

CARAC.SH table des jeux de 
caractères 


Programme 
FONCTION 


10 DEF FN F(T) = X: REM * 2: REM 1600 
- X * 2): REM REM ***#*R##%R##AR%%n% 


RRÉRRRRRRRRRÉRRRRRÉRRRRRRRÉRRÉRRRRRRRÉÉ 
RRÉRRRRRRRRRÉRRRRRRRRR RAR RAR 
ÉRÉRRRRRR RAR RAR RAR RNA 
RRÉRRRRRRRRRRRRR ARR RM RAR RNA RR 
RRRRÉRRRRRRÉRÉRRRRRRRRRRRRRRRRRR RÉ 

20 DEF FN G{T) = T: REM : REM ): REMT 
: REM ‘ 2): REM * T: REM 2: REM *** 
RÉRRRRRRRRRRRRRRRRRRRRRR RÉ RRRRR ARR RRR 
ÉÉRRRRRÉRRRRRRRRRÉRRRRRRRRRRRRRÉRRR ARR RÉ 
ÉPTLTITLLILILILIIIITII III III LIL LI 
RRRRRÈRRRRRRRRRRRR RAR RRRRRRRRRRRRRR ER 
RARRRRRRÉRRRRRRRRRRRRRRRRRRRRRRRRRR 

30 FOR I = 1 TO 3: READ IN$(I): NEXT 

40 D$ = CHR$ (4) 

50 IF PEEK (103) + 256 * 

60 POKE 103,1: POKE 104,96: POKE 24576, 0 

70 PRINT DS$"RUN FONCTION" 

80 IF PEEK (236) GOTO 140 


90 AL = 6000: POKE 233, INT (AL / 256): POKE 232,AL - 


256 * ( INT (AL / 256)) 

100 PRINT D$"BLOAD FONC.C" 

110 PRINT D$"BLOAD CARAC.SH, A"AL 
120 PRINT D$"BLOAD ERREUR, A931" 
130 POKE 236,1 


PEEK (104) = 24577 GOTO 80 


CHARGE.OBJ module de 
chargement rapide (Pom's 4 
modifié par Pom's 19) 

FONCTION 

FONC.C module assembleur de 
tracé de courbes 

T.FONC source de FONC.C 
(adapté de G.Mauffrey dans 
Pom's 11) 

ERREUR module classique de 
gestion d'erreur en Applesoft 

GRAVURE 

GRAV.C module d'impression 

T.GRAV source de GRAV.C 
(adapté de l'ImageWriter 
ToolKit) 










460 REM 
470 VTAB VT: HTAB HT: INPUT "";V$: IF V$ = "" THEN VTAB VT: HT 


Répartition en % de la puissance 
industrielle mondiale en G : 


(Ualeur des productions minières et manuFac- 
turières additionnées ) 





EXEMPLE.PIC image graphique 
exemple illustrant le jeu 
alterné de caractères 


Conclusion 


GRAPHISME se veut être un 
logiciel complet, à vocation 
quasi-professionnelle ; il devrait 
rendre de grands services à tous 
ceux qui manipulent fréquemment 
à la fois des graphiques et des 
fonctions mathématiques, et ont 
toujours regretté de ne pouvoir 
les manipuler simultanément. 





** SAISIE DES DONNEES ** 


IF REP = 2 THEN PRINT "ANGLE ->": GOTO 520 
HTAB 14: PRINT "T minima:"TD: HTAB 14: PRINT " 


"NOMBRE DE POINTS: "NP 


540 VTAB VF: PRINT "========-2-=====[P'ENETRE===œmœmmmmmœt; 


PRINT "X minima:"X1;: 
:"Y1: PRINT "X maxima:"X2;: HTAB 20: PRINT "Y maxima:"Y2 


- 958: FOR K = 1 TO 40: HTAB K: PRINT "=";: N 


HTAB 20: PRINT "Y minima 


140 A1 = 776:A2 = 769:A3 = 921:A4 = 853:A5 = 878 AB HT: PRINT V: RETURN 

150 SC = 1: SCALE= SC:RO = O0: ROT= RO: HCOLOR= 3 480 V = VAL (V$}: RETURN 

160 VP = J:VN = 10:VF = 12:VM = 17:VO = 18:NP = 280:X1 = - 14:Xx 490 REM ** TABLEAU DONNEES ** 
2 = 14:Y1 = -— 9.6:Y2 = 9.6:TD = - 10:TF = 10 500 VTAB VP + 1: 

170 S = O:AX = 1:IM = 0:CO = O:MM = 0:M = l:WW = O:NL = 1 510 PRINT "PARAMETRE ->" 

180 PL = 0: IF PEEK (214) THEN PL = 1 520 VTAB VP + 1: 

190 ONERR GOTO 2470 T maxima:"TF 

200 GOSUB 2000: GOTO 1010 530 VTAB VN: PRINT 

210 REM ** CALCUL DES COORDONNEES** 

220 T4 = T: GOTO 250 VTAB VM: CALL 

230 W = W+ l: IF W > 2 * WW + 1 THEN W = O:WW = 1 — WW EXT 

240 IF WW = O THEN T = T + INC: POP : GOTO 1610 550 VTAB VF + 1: 

250 IF PEEK (49152) > 127 THEN SS = PEEK (49152) - 128: POKE 
49168,0: GOTO 400 560 RETURN 

260 ON REP GOTO 270,320, 360 570 REM ** ENTREE DONNEES ** 


270 X = X1 + (T + 1) / EX 

280 Y = FN F{X) 

290 IF NOT DE GOTO 310 

300 X = X + (X2 - X1) / 10000:YA = 
/ (X2 — X1) 

310 I = T:J = (Y - Y1) * EY - 1: RETURN 

320 Z = FN F{T) 


330 IF DE THEN T = T + (T2 - T1) / 10000:ZA 


— Z) * 10000 / (T2 -— T1) 
340X=2Z7" 
POP : GOTO 1630 
350Y=2Z 7% 
360 X = 


EN F(T):Y = FN G{T) 


370 IF DE THEN T = T + (T2 - T1) / 10000:XA 


G(T):Y (YA - Y) / (XA - X) 


FN F(X):Y = (YA - Y) * 10000 


COS (T):1 = EX * (X - X1): IF I < O0 OR I > 280 THEN 630 


580 VT = VP + 1:HT = 23:V = TD: GOSUB 470:TD = V:VT = VP + 2:HT 
= 23:V = TF: GOSUB 470:TF = V:T1 = TD:T2 = TF 
590 VT = VN:HT = 18:V = NP: GOSUB 470:NP = V: IF REP = 1 THEN IN 


C = 280 / NP: GOTO 610 


600 INC = (T2 - T1) / NP 
610 POKE 33,19:VT = VF + l:HT = 10:V = X1: GOSUB 470:X1 = V:VT 
= VF + 2:HT = 10:V = X2: GOSUB 470:X2 = V:CX = X2 - X1: IF CX 


= FN F{T):2Z = (ZA SA 


= 0 GOTO 610 


620 EX = 279 / CX:UX = 1: POKE 33,40 


IF CX > 40 THEN CX = CX / 10:UX = UX * 10: GOTO 630 


640 IF CX < 4 THEN CX = CX * 10:UX = UX / 10: GOTO 640 


= FN F(T):YA = FN 3: CALL 


SIN (T):J = EY * (Y - Y1): RETURN 650 VT = VF + 1:HT = 29:V = Yl: GOSUB 470:Y1 = V:YM = YI + (X2 - 
X1) * 192 / 280: VTAB VF + 4: HTAB l: CALL 


- 868: VTAB VF + 


- 868: PRINT "Pour la meme échelle:Y maxima=";0.1 * 


INT (10 * YM + 0.5) 


660 VT = VF + 2:HT = 29:V = Y2: GOSUB 470:Y2 = V:CY = Y2 - Y1: I 


IF CY > 40 THEN CY = CY / 1O0:UY = UY * 10: GOTO 680 


690 IF CY < 4 THEN CY = CY * 1O:UY = UY / 10: GOTO 690 


— 868: PRINT "Unité en abscisse: 


380 I = EX * (X - X1): IF I < O OR I > 280 THEN POP : GOTO 1630 

390 J = EY * (Y - Y1) - 1: RETURN F CY < = 0 GOTO 650 

400 IF SS = 13 THEN TS = T - INC: POP :: GOTO 1700 670 EY = 191 / CY:UY = 1 

410 IF SS = 27 THEN T = T + 10 * INC: GOTO 430 680 

420 IF SS = 9 THEN T = T - 20 * INC 

430 IF T > T2 THEN T = T2 700 HTAB 1: VTAB VF + 3: CALL 
440 IF T < T1 THEN T = T1 


450 POP : GOTO 1610 


“;UX: PRINT "Unité en ordonnée:";UY 


710 RETURN 
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720 REM ** TABLEAU OPTIONS ** 

730 VTAB VM: CALL - 958: FOR K = 1 TO 40: HTAB K: PRIN 
T "=";; NEXT 

740 VTAB VO: PRINT "l- EFFACER ET TRACER": PRINT "2- TR 
ACER SANS EFFACER": PRINT "3- MODIFIER LES VALEURS" 

750 VTAB 21: HTAB l: PRINT "4- CHANGER DE FONCTION": PR 
INT "5- ENREGISTRER 6- CHARGER": PRINT "7- IMPRI 


MER 8- CATALOGUE": PRINT "9- QUITTER LE PROGR 
AMME"; 

760 RETURN 

770 REM ** PARAMETRE ** 


780 VTAB VP: PRINT "SI VOUS VOULEZ UTILISER UN PARAMETR 
E M TAPEZ M (SINON UNE AUTRE TOUCHE):";: GET PR$: IF 
PR$ < > "M" AND PR$ < > "m" THEN MM = 0: GOTO 795 

790 MM = 1 

795 VTAB VP: HTAB 1: CALL — 958: RETURN 

800 GOSUB 855: VTAB VP: HTAB 1: PRINT "l- FAMILLE DE CO 
URBES": PRINT "2- PARAMETRE A LA DEMANDE": PRINT "CHO 
IX:";: GET PR$:PR = VAL (PR$) - 1: IF PR < O0 OR PR > 
1 GOTO 800 

810 IF PR = O GOTO 830 

820 VTAB VP: HTAB 1: CALL 
R DE ‘M':";M: GOTO 850 

830 GOSUB 855: VTAB VP: HTAB 1: PRINT "M minima:"Ml: VT 
AB VP: HTAB 16: PRINT "M maxima:"M2: VTAB VP: HTAB 31 
: PRINT “Pas:"PM 

840 POKE 33,15:VT = VP:HT = 10:V = Ml: GOSUB 470:M1 = V: POKE 3 
3,30:VT = VP:HT = 25:V = M2: GOSUB 470:M2 = V: POKE 33, 40:VT 
= VP:HT = 35:V = PM: GOSUB 470:PM = V 


— 958: INPUT "PREMIERE VALEU 


850 RETURN 

855 FOR II = VP TO VP + 3: VTAB II: HTAB 1: CALL - 868: NEXT : 
RETURN 

860 REM ** MESSAGE DEFILANT ** 


870 SPEED= 245:AX = l:CA = 0:PO = O:DE = O:DF = l:T$ = AS(DF):N 
$ = "": FOR J = 1 TO 20:N$ = N$ + " ": NEXT 

880 M$ = NS + TS # mm 

850 INVERSE : FOR K = 1 TO LEN (M$): VTAB VM: HTAB 5: PRINT M 
ID$ (M$,K, 30) 

900 TC = PEEK (49152): IF TC > 127 THEN POKE 49168,0: SPEED= 2 
55: NORMAL : GOTO 930 

910 NEXT :DF = 1 + DF: IF DF = DM + 1 THEN DF = 1 

920 T$ = AS(DF): GOTO 880 


930 IF TC = 196 THEN DE = 1: GOTO 890 
940 IF TC = 208 THEN PO = 1: GOTO 890 
350 IF TC = 211 THEN AX = 0: GOTO 890 
355 IF TC = 195 THEN CA = 1 


960 IF TC = 141 THEN POKE 49232,0: POKE 49234,0: POKE 49236,0: 
POKE 49239,0: POP : GOTO 1760 : 

970 IF TC > 176 AND TC < 186 THEN R = TC - 176: GOTO 990 

380 GOTO 890 


990 FOR K = 1 TO 40: VTAB VM: HTAB K: PRINT "=": NEXT : RETURN 
1000 REM #** DEBUT ** MENU ** 
1010 HOME : VTAB 2: HTAB 4: PRINT "GRAPHES DE FONCTIONS": VTAB 


3: HTAB 4: FOR I = 1 TO 18: PRINT "_"33 NEXT : PRINT "" 


1020 FOR I = 1 TO 3: GOSUB 1100: NEXT 

1030 I = 1: INVERSE : GOSUB 1100: NORMAL 

1040 VTAB 20: PRINT "FLECHES -> CHOISIR RETURN -> VALIDER" 
1050 VTAB 21: GET CAR$S:CH = ASC (CARS) 

1060 IF CH = 10 OR CH = 8 THEN GOSUB 1100:I = I + l: INVERSE : 


GOSUB 1100: NORMAL 

1070 IF CH = 11 OR CH = 21 THEN COSUB 1100:1 = I - 1: INVERSE 
: GOSUB 1100: NORMAL 

1080 IF CH = 13 THEN HOME : 

1090 GOTO 1050 

1100 IF I = 4 THEN I = 1 

1110 IF I = 0 THEN I= 

1120 VTAB I + 6: HTAB 4: PRINT INS(I): RETURN 

1130 REP = I: ON I GOTO 1150,1180,1210 

1140 REM ** ENTREE DES FONCTIONS ** 

1150 HOME : HTAB 9: INVERSE : PRINT " FONCTION CARTESIENNE": NO 
RMAL : VTAB 3: PRINT "Y(X)=": GOSUB 780 

1160 HTAB l: VTAB 3: PRINT "Y(X)=";: CALL Al: IF MM THEN GOSUB 
800 

1170 GOSUB 530: GOSUB 590: GOTO 1240 

1180 HOME : HTAB 12: INVERSE : PRINT " FONCTION POLAIRE ": NORM 
AL : PRINT "(La variable T est l'angle en radians)": VTAB 3: 
PRINT "R(T)=": GOSUB 780 

1190 HTAB 1: VTAB 3: PRINT "R(T)=";: CALL Al: IF MM THEN GOSUB 
800 

1200 GOTO 1230 

1210 INVERSE : HOME : HTAB 9: PRINT " FONCTION PARAMETRIQUE ": 
NORMAL : PRINT "(La variable T est le paramètre courant)": VT 
AB 3: PRINT "X(T)=": VTAB 5: PRINT "Y(T)=": GOSUB 780: HTAB 1 

VTAB 3: PRINT "X(T)=";: CALL A1 

1220 VTAB 5: PRINT "Y(T)=";: CALL A2: IF MM THEN GOSUB 800 

1230 GOSUB 500: GOSUB 580 

1240 GOSUB 730 

1250 GOSUB 870: ON R GOTO 1350,1260,1265,1300,1890,1890,1290,19 
50,1320 

1260 POKE 49232,0: POKE 49234,0: POKE 49236,0: POKE 49239,0: GO 
TO 1360 

1265 IF MM = 0 GOTO 1270 

1266 GOSUB 800: IF REP = 1 GOTO 1170 

1267 GOTO 1230 


GOTO 1130 


Développement limité de 1a Fonction: 


xt  x5  x6 


: 2 3 
PRÉ ST FAT AT Er ET 





1270 
1280 
1290 
1300 
1310 


IF REP = 1 THEN GOSUB 590: GOTO 1240 

GOSUB 580: GOTO 1240 

PRINT D$"RUN GRAVURE, DI" 

HOME : GOTO 1010 

REM ** FIN ** 

1320 HOME : PRINT 

1330 PRINT D$"RUN MENU, D1" 

1340 REM ** DEBUT DU GRAPHE ** 

1350 HGR : HCOLOR= 3: POKE 49234,0 

1360 IF AX = O0 GOTO 1565 

1370 REM **TRACE DES AXES** 

1390 I0 = INT ( - X1 * EX) 

1400 JO = INT ( - Y1 * EY) 

1410 IF JO < O OR JO > 191 THEN 1490 

1420 HPLOT 0,191 - JO TO 279,191 - JO 

1430 IF JO < 2 THEN C = JO:D = 2: GOTO 1460 

1440 IF JO > 189 THEN C = 2:D = 19] - JO: GOTO 1460 
1450 C = 2:D = 2 

1460 FOR I = INT (XI / UX) TO INT (X2 / UX): IF I0+I*Ex * 
UX < O OR IO + I * EX * UX > 279 THEN 1480 


1470 HPLOT 10 + I * EX * UX,191 + C - JO TO IO + I * EX * UX,19 
1 - D - JO 

1480 NEXT 

1490 IF I0 < O OR I0 > 279 THEN 1570 

1500 HPLOT 10,0 TO I0,191 

1510 IF 10 < 2 THEN À = I0:B = 2: GOTO 1540 

1520 IF 10 > 277 THEN À = 2:B = 279 — IJ0: GOTO 1540 


1530 A = 2:B = 2 

1540 FOR J = INT (Y1 / UY) TO INT (Y2 / UY): IF JO + J * EY * 
UY > 191 OR JO + J * EY * UY < O THEN 1560 

1550  HPLOT I0 - A,191 - JO - J * EY * UY TO 10 + B,191 - JO - J 


* EY * UY 

1560 NEXT 

1565 IF CA = 1 THEN HPLOT 0,0 TO 279,0 TO 279,191 TO 0,191 TO 
0,0 

1570 REM #**TRACE DE LA FONCTION** 

1580 IF MM = 1 AND PR = O0 THEN M = MI 

1590 IF REP = 1 THEN T1 = 1:T2 = 279 

1600 T = T1 

1610 GOSUB 220 

1620 IF J > = 0 AND J < = 191 THEN HPLOT 1,191 - J: GOTO 169 
Le) 

1630 XDRAW 98 AT 10,10: XDRAW 98 AT 10,10 

1640 T = T + INC: IF T < T2 GOTO 1610 

1650 GOTO 1700 

1660 GOSUB 220 

1670 IF J < O0 OR J > 191 GOTO 1640 

1675 IF PO THEN HPLOT I,191 - J: GOTO 1690 

1680 HPLOT TO I,191 - J 


1690 T = T +# INC: IF T < T2 GOTO 1660 

1700 IF MM = O0 GOTO 1750 

1710 IF NOT PR GOTO 1740 

1720 POKE 49235,0: VTAB 21: HTAB l: CALL - 958: VTAB 22: INPUT 

"NOUVEAU PARAMETRE (SINON RETURN) :";PR$: IF PR$ = "" THEN GO 

SUB 750: POKE 49234,0: GOTO 1750 

1730 M = VAL (PR$): GOSUB 750: POKE 49234,0:T1 = TD: GOTO 1590 

1740 IFT > = T2 THEN T1 = TD:M = M + PM: IF M = < M2 GOTO 15 
90 

1750 PRINT CHR$ (7); 

1760 IF PEEK (49152) < 128 GOTO 1760 

1770 RR = PEEK (49152) - 128: POKE 49168,0: IF RR = 87 THEN CA 


LL A3: GOTO 1760 
1780 
1790 
1800 
1810 
1820 
1830 


IF RR = 85 THEN 
IF RR = 66 THEN 


CALL A4: GOTO 1760 
CALL A5: GOTO 1760 

ÎF RR = 84 THEN GOSUB 2190: GOTO 1760 
IF RR = 13 THEN POKE 49233,0: GOTO 1250 
IF RR = 6? THEN T = TS: GOTO 1610 

GOTO 1760 
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1840 REM #** ENREGISTRER-CHARGER ** 

1850 IF NOT PL THEN RETURN 

1860 VTAB VO: HTAB 1: CALL - 958: PRIN 
T : PRINT "LECTEUR N°:";: INVERSE : P 
RINT NL;: NORMAL : CALL - 1008: GET 
CARS: IF CAR$ = CHR$ (13) THEN RETU 


RN 

1870 IF CAR$ < > "1" AND CAR$ < > "2" 
GOTO 1850 

1880 NL = VAL (CAR$): INVERSE : PRINT N 
L: NORMAL : RETURN 


1890 GOSUB 1850 

1900 HTAB 1: VTAB VO + 3: INPUT "NOM DE 
L'IMAGE:";IM$: IF IM$ = "" GOTO 1940 

1910 PG = ASC ( LEFTS (IM$,1)): IF PG < 
65 OR PG > 90 GOTO 1900 

1920 IFR = 5 THEN PRINT DS"BSAVE"IMS" 
,A$2000, L$2000,D";NL: GOTO 1940 

1930 PRINT D$"BLOAD"IMS", A$2000, D'NL 

1940 GOTO 1240 

1950 POKE 34,VP - 1: HOME : GOSUB 1850: 
PRINT 

1960 PRINT D$"CATALOG, D'NL: INVERSE : P 
RINT "FIN": NORMAL 

1970 GET CARS: HOME : POKE 34,0: IF REP 
= 1 THEN GOSUB 530: GOTO 1240 

1980 GOSUB 500: GOTO 1240 

1990 REM **FONCTIONS SPECIALES** 

2000 DEF FN SH(X) = ( EXP (X) - EXP ( 


- X)) /2 

2010 DEF FN CH(X) = ( EXP (X) + EXP ( 
- X)) /2 

2020 DEF FN TH(X) = - EXP ( - X) / 


EXP (X) + EXP (-X) * 2+1 

2030 DEF FN LD(X) LOG (X) / LOG (1 
0) 

2040 DM = 3: REM *#*NB DE MESSAGES ** 

2050 A$(1) = "TAPEZ VOTRE OPTION DE 1 A 
9...'P'® POUR COURBE EN POINTILLE...'D 
" POUR DERIVEE...'S' SANS AXES...'C' 
CADRE... '"RETURN' VOIR L'ECRAN" 

2060 A$(2) = "UNE SONNETTE ANNONCERA LA 
FIN DU GRAPHE...ON PEUT L'INTERROMPRE 

PAR "RETURN' ET LE CONTINUER PAR 'C' 
...'"ESC' SAUTE 10 POINTS...'TAB' REVI 
ENT DE 20 POINTS" 

2070 A$(3) = "QUAND LE GRAPHE EST INTERR 
OMPU ‘ T ' MODE TEXTE..." W ' PASSE 
D'UN ECRAN A UN AUTRE...'U'" FUSIONNE 
LES DEUX ECRANS..."'B" BANQUE ...'RETU 
RN' RAMENE A CETTE PAGE" 

2080 PI = 3.1416:E = EXP (1) 

2090 RETURN 

2100 REM ** TEXTE ** 

2110 VX = 7:VY = 8 

2120 IF PEEK (49250) > 127 THEN VX = 1 
:VY = 1 

2130 IF PEEK (49249) > 127 THEN VX = 7 
O:VY = 48 

2140 IF R = 21 THEN X$ = X$ + VX: IF X# 

> 279 THEN X$ = 279 

2150 IFR = 8 THEN X$ = X$ - VX: IF X$ 
< 0 THEN X$ = 0 

2160 IF R = 10 THEN Y$ = Y6 + VY: IF Y$ 

> 191 THEN Y$ = 191 
2170 IFR = 11 THEN Y$ = Yé - VY: IF Y$ 
< 0 THEN Y$ = 0 

2180 RETURN 

2190 PT = 1:CT = 98:KK = O:CR = CT:S = C 
TiX$ = 5:Y$ = 5: XDRAW CT AT X8,Y# 

2200 C = PEEK (49152) - 128: IFC <0G 
OTO 2200 

2210 POKE 49168,0:S = C - 29: IF C = 27 

THEN TT = 1 - TT: XDRAW CT AT X$,Y4: 
CT = 34 * (TT = 1) + CR * (TT = 0): X 
DRAW CT AT X#,Y8#: GOTO 2200 

2230 IF C< > 32 OR TT = 0 GOTO 2250 

2240 KK = 1: GOTO 2200 

2250 IF C< 32 OR C = 127 GOTO 2330 

2260 IF PEEK (49249) > 127 AND C > 47 
AND C < 91 THEN S = S + 80 

2270 XDRAW CT AT X#,Y#: DRAW S AT X8,Y# 

2280 IF TT = O0 THEN CT = CR:KK = 0: GOT 
Oo 2310 

2290 CT =S 

2300 GOTO 2200 

2310 X$ = X$ + 7 

2320 XDRAW CT AT X#,Y$: GOTO 2200 

2330 IF KK = 1 THEN KK = 0: DRAW CT AT 
X#,Y#: GOTO 2350 

2340 XDRAW CT AT X8,Y# 

2350 IF C = 13 THEN RO = 0: ROT= RO:CT 
= CR:TT = 0:KK = 0: RETURN 

2360 IF C = 23 THEN RO = (RO = 56) * © 


+ (RO < 56) * (RO + 8): ROT= RO 

2370 IF C = 127 THEN DRAW CT AT X8,Y8: 
XDRAW CT AT X#,Y# 

2380 IF C < > 6 GOTO 2450 

2390 LD = 1280: GOSUB 2410: IF REP = 3T 
HEN LD = 1536:X$ = X$ - 7 * FF:Y$ 
$ + 8: GOSUB 2410 

2400 GOTO 2450 

2410 FF = 0 

2420 S = PEEK (LD + FF) - 157: IF S 
THEN RETURN 

2430 XDRAW S AT X8,Y8:X$ = X$ + 7:FF = 
FF + 1: IF X$ > 277 THEN RETURN 

2440 GOTO 2420 

2450 R = C: GOSUB 2110: GOTO 2320 

2460 REM ** TRAITEMENT D'ERREUR ** 

2470 CALL 931 

2480 POP 

2490 XDRAW 34 AT 10,10 

2500 ER = PEEK (222) 

2510 IFER < > 53 AND ER < > 133 GOTO 
2540 

2520 XDRAW 34 AT 10,10 

2530 T = T4: GOTO 1640 

2540 IF ER = 6 THEN PRINT : PRINT "PAS 
D'IMAGE DE CE NOM (RETURN)": GET CAR 
$ 

2550 IF ER = 16 THEN POKE 49233,0: VTA 
B VM + 1: CALL - 958: PRINT "ERREUR 
DE SYNTAXE": PRINT "VERIFIER L'ECRITU 
RE DE LA FONCTION": PRINT "RETURN"; : 
GET CAR$ 

2560 GOTO 1240 

2570 DATA FONCTION CARTESIENNE, FONCTIO 
N POLAIRE, FONCTION PARAMETRIQUE 
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Programme 
SCHEMATEUR 


5 HIMEM: 36863 

10 REM ** SCHEMATEUR ** 

20 REM ** M.CAUET - NOV 86 ** 

30 IF PEEK (103) + 256 * PEEK (104) = 
24577 GOTO 2240 

40 REM ** IMPLANTATION DU PROGRAMME AU 
-DESSUS DE HGR2 ** 

50 POKE 103,1: POKE 104,96: POKE 24576, 
0 

60 PRINT CHR$ (4)"RUN SCHEMATEUR" 

70 REM #** COORDONNEES DU POINT ** 

80 IF ME AND R = 9 THEN MN = 1 - MN 

90 IF MN = 0 GOTO 110 

100 X& = PDL (0) / 255 * 279:Y$% = PDL 
(1) / 255 * 191: RETURN 

110 VX = 12:VY = 12 

120 IF PEEK (49250) > 127 THEN VX = 1: 
VY = 1 

130 IF PEEK (49249) > 127 THEN VX = 70 
:VY = 48 

140 IF R= 21 THEN X$ = X$ + VX: IF X$ 
> 279 THEN X$ = 279 

150 IFR = 8 THEN X$ = X$ — VX: IF X$ < 
0 THEN X$ = 0 

160 IFR = 10 THEN YS = Y$ + VY: IF Y# 
> 191 THEN Y# = 191 

170 IFR = 11 THEN Y$ = Y$ — VY: IF Y$ 
< 0 THEN Y$# = 0 

180 RETURN 

190 REM ** ANALYSE DE LA COMMANDE ** 

200 IF DP AND NOT DH THEN X1$ = X#:Y1$ 
= Yt 

210 DH = 0 

220 IF PEEK (49152) > 127 THEN R = PE 
EK (49152) - 128: POKE 49168,0: IF MN 
OR NOT MN AND (R > 31 OR R = 13 OR 
R = 17) GOTO 250 

230 GOSUB 80: IF NOT PT THEN XDRAW CU 
AT X04,Y0# 

240 X0$ = X#:Y0$ = Y#: XDRAW CU AT X08,Y 
O$:PT = O:R = 0: GOTO 220 

250 FOR I = 1 TO ZC: IF R = R(I) THEN 
ON I GOSUB 290,310, 1030, 350,400, 420,4 
40,490,440, 550,570, 690,950,2160,1070, 
1210,1250,1580,1580,1580,1580,1920,19 
20,1090,1130, 980,810,1150,510: GOTO 2 
00 

260 NEXT : IF R > 96 AND R < 123 THEN 
POKE 49235,0: HOME : VTAB 22: PRINT " 
PASSEZ EN MAJUSCULES S.V.P. ET RETURN 
.": GET CARS: POKE 49234,0:R = R - 32 
: GOTO 250 

270 GOTO 200 


— 





———————— 


280 REM "or 
290 POP : RETURN 
300 REM #** DEL ** 


310 POKE 49235,0: HOME : VTAB 23: PRINT 
"PERTE DU DESSIN (O/N)?:";: GET CARS 
IF CAR$ < > "O" AND CAR$ < > "o" 
GOTO 330 
320 HGR :PT = 1:B = 0:CL = 3: HCOLOR= C 
L: POKE AA + 8,B 
330 POKE 49234,0: RETURN 
340 REM ** L ** 
350 POKE 49235,0: HOME : VTAB 21: PRINT 
"LIMITE ET FUSION PAR POINTS ";:: IF 
B = O THEN PRINT "ALLUMES.": GOTO 37 
0 


360 PRINT "ETEINTS." 

370 PRINT "TAPEZ C POUR CHANGER": GET C 
ARS: IF CARS = "C" THEN B = 1 - B: PO 
KE AA + 8,B 

380 POKE 49234,0: RETURN 

390 REM ** Z #» 

400 GOSUB 420:DP = 0: RETURN 

410 REM **X ** 

420 HPLOT XO8%,YO8:X1# = XO8:Y1# 
PB = J:PT = l: RETURN 

430 REM  ** H-V #* 

440 IF R = 86 GOTO 460 

450 HPLOT X4,Y1# TO XIS,YI#:X18 
OTO 470 

460 HPLOT X18,Y$ TO X18,Y1#:Y1# 

470 DH = 1: RETURN 

480 REM ** ESPACE ** 

490 HPLOT X$,Y$ TO XI$,YI#:PT = 1: RETU 
RN 
500 REM 

510 XDRAW CU AT X8,Y8 

520 CALL AG 

530  XDRAW CU AT X#,Y#: RETURN 

540 REM ** R** 

550 HPLOT X4,Y# TO X18,Y$ TO X18,Y1# TO 


Y0#:D 


(] 
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** M *+* 


X$,Y1$ TO X$,Y8:PT = l: RETURN 

560 REM ter à 

570 PT = 1: POKE 49235,0: HOME : VTAB 22 
: PRINT " G- GOMME R- REM 
PLIT": PRINT " D- DECOUPE E 
- ENCADRE": PRINT " M- MOBIL 


E";: VTAB 21: HTAB l: PRINT "FENETRE: 
CHOIX:";: GET CARS 

580 POKE 49234,0: IF CAR$ = CHR$S (13) 
THEN RETURN 

590 ST = - CL + 3 + 8 * (CL > 3): IF CA 
R$ = "G" OR CAR$ = "D" OR CARS = "M" 
THEN  HCOLOR= ST 

600 IF CARS = "G" OR CAR$ = "R" THEN G 
OSUB 670: HCOLOR= CL: RETURN 

610 IF CARS = "D" OR CAR$ = "E" THEN G 
OSUB 640: HCOLOR= CL: RETURN 

620 IF CARS = "M" THEN POKE 49235,0: H 
OME : VTAB 23: PRINT "UN INSTANT S.V. 
P.": CALL AP: GOSUB 640: CALL AE: GOS 
UB 670: HCOLOR= CL: POKE 49234,0: CAL 
L AV: RETURN 

630 GOTO 570 


640 IF X1$% > X$ THEN WW XI6:X18 = X$: 


X$ = WW 
650 IF YI1$ > Y$ THEN WW = Y14:Y1$ = Y$: 
Y$ = WW 


660 FOR I = 0 TO X1$: HPLOT 1,0 TO I,19 
1: NEXT : FOR I = X1$ TO X$6: HPLOT I, 
O0 TO I,Y1#: HPLOT 1,Y$% TO 1,191: NEXT 
: FOR I = X$ TO 279: HPLOT 1,0 TO I, 
191: NEXT : RETURN 

670 FOR I = Y$ TO Y1$ STEP 2 * (YI#$ > Y 
#) — 1: HPLOT X$,1 TO X18%,1: NEXT :PT 
= 1: RETURN 

680 REM *kKe** 

690 CC = 78 * (CL = 0) + 66 * (CL = 3) + 
71 * (CL = 1):CL$ = CHR$ (CC): IF C 
C = 0 THEN CL$ = STR$ (CL) 

700 POKE 49235,0: HOME : VTAB 21: PRINT 
"COULEUR (0à7,ou B blanc,N noir,G gr 
is):"CL$;: CALL - 1008: GET CL$ 

710 CB = (CLS = "N") + 2 * (CL$ = "G") + 


4 * (CLS = "B") - 1: IF CB = - 1 AN 
D CL$ > "/" AND CLS < "8" THEN CB = 
VAL (CLS) 

720 IF CB= - 1 GOTO 740 

730 CL = CB 


740 HCOLOR= CL: POKE 49234,0: RETURN 

750 REM ##.R R% 

760 INVERSE : PRINT DI;: FOR I = 1 TO 
LEN ( STR$ (DI)): CALL - 1008: NEXT 
: GET R1$: IF RI$S = CHR$ (17) THEN C 
H = 17: GOTO 870 
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770 IF R1$ < "O" OR RI1$ > "9" THEN DF = DI: NORMAL 
"": RETURN 

780 PRINT R1$;::D1 = VAL (R1$): 
7) THEN CH = 17: GOTO 870 

790 IF R2$ < "O" OR R2$ > "9" THEN PRINT " ":DF = Dl: NOR 
MAL : RETURN 

800 PRINT R2$:DF = D1 * 10 + VAL (R2$): 

810 POKE 49235,0: HOME : VTAB 21: 
D L (AIDE: "Ctrl Q')":I = MD 


: PRINT 


GET R2$: IF R2$ = CHR$ (1 


NORMAL : RETURN 
PRINT "MODE: CVHPQG 


815 HTAB 1: VTAB 23: PRINT "FLECHES -> CHOISIR RETURN -> 
VALIDER" 

820 IF I = 8 THEN I = 0 

830 IF I = - 1 THEN I = 7 


840 VTAB 21: HTAB 7 + 2 * I: GET CAR$S:CH = ASC (CARS) 

850 IF CH = 21 OR CH = 10 THEN I = I + l: GOTO 820 

860 IF CH = 8 OR CH = 11 THEN I = I - 1: GOTO 830 

870 IF CH = 17 THEN TEXT : HOME : NORMAL : PRINT INS(24): 
PRINT : FOR I = 25 TO 32: PRINT IN$(I): NEXT : PRINT : 
PRINT IN$(33): PRINT : PRINT IN$S(34): GET CAR$: POKE 492 
32,0: GOTO 810 

875 IF CH < > 13 GOTO 840 

880 MD = I: POKE AA + 1,MD 

890 IF I = O GOTO 930 

900 HTAB 1: VTAB 22: CALL - 958: PRINT "PAS:";:DI = PA: G 
OSUB 760:PA = DF: IF PA < = 0 GOTO 900 

910 POKE AA + 2,PA 

920 PRINT "EPAISSEUR: 
-1 

930 POKE 49234,0: RETURN 

940 REM ** O ** 

950 IF MA * NI = O THEN RETURN 

960 CALL AO: RETURN 

970 REM ** B »* : 

980 HOME : IF MA = O0 THEN XDRANW CU AT X8,Y$: CALL AE:PT = 1: R 
ETURN 

9930 IF NI > 4 THEN POKE 49235,0: HOME : 
TION": GET CAR$: GOTO 1010 

1000  XDRAW CU AT X8,Y#:NI = NI + l: POKE AA + 3,NI: POKE AA + 1 
S,NI * 32: CALL AB:PT = 1:B = O:CL = 3: HCOLOR= CL: POKE AA + 
8,B: HGR 

1010 POKE 49234,0: RETURN 

1020 REM #** Nr" 

1030 IF MA = O0 THEN RETURN 

1040 NU = PEEK (AA + 16): XDRAW CU AT X8,Y#: POKE AA + 15,NU * 
32: CALL AB:PT = 1:B = O0:CL = 3: HCOLOR= CL: POKE AA + 8,B: C 
ALL AE 

1050 POKE 49234,0: RETURN 

1060 REM ner 

1070 XDRAW CU AT X8,Y$: CALL AF:PT = 1: RETURN 

1080 REM ** U ** 

1090 POKE 49235,0: HOME : 
EE? (O/N)";: 
© 1110 

1100 XDRAW CU AT X$#,Y$#: CALL AU 

1110 POKE 49234,0:PT = 1: RETURN 

1120 REM ** I ** 

1130 CALL AI:CL = - CL + 3 + 8 * (CL > 3):B = 1 - B: HCOLOR= C 
L: POKE AA + 8,B: RETURN 

1140 REM ** J#* 

1150 IF MA = O0 THEN RETURN 

1160 POKE 49235,0: HOME : VTAB 23: PRINT "NOMBRE D'IMAGES EN BA 
NQUE: "NI;: CALL - 1008: GET NI$: IF NIS < "O" OR NIS > "5" 
GOTO 1190 

1170 PRINT NI$S:NI = VAL (NIS) 

1180 POKE AA + 3,NI 

1190 POKE 49234,0: RETURN 

1200 REM ** S ** 

1210 XH = INT (X$ / 256):XB = X$ - XH * 256 

1220 POKE AA +# 4,XB: POKE AA + 12,XB: POKE AA + 5,XH: POKE AA + 
13,XH: POKE AA + 6,Y$: POKE AA + 7,Y$: POKE AA + 9,0 

1230 PT = 1: XDRAW CU AT X$,Y$: CALL AS: RETURN 

1240 REM *#**T *»* 

1250 PT = 1:CR = CT:S = CT: XDRAW CU AT X#$,Y#: XDRAW CT AT X8,Y$ 

1260 C = PEEK (49152) - 128: IF C < 0 GOTO 1260 

1270 POKE 49168,0:S = C - 29: IF C = 27 THEN TT = 1 - TT: XDRAW 
CT AT X#$,Y#:CT = 34 * (TT = 1) + CR * (TT = 0): XDRAW CT AT 
X$,Y$: GOTO 1260 

1280 IF C = 17 THEN TEXT : HOME : FOR I = 41 TO 51: PRINT INS( 
1): NEXT : GET CAR$: POKE 49232,0: GOTO 1260 

1284 IF ME AND C = 9 THEN MN = 1 - MN 

1290 IFC< > 32 OR TT = O GOTO 1310 

1292 IF MN = 0 GOTO 1300 

1293 DRAW CT AT X$,Y$: GOSUB 100: XDRAW CT AT X8,Y$ 

1294 IF PEEK (49152) > 127 GOTO 1260 

1296 XX$ = XS:YYS = Y#: GOSUB 100: IF X$ = XX$ AND Y$ = YY# GOTO 
1294 

1297 XDRAW CT AT XX8,YY#: XDRAW CT AT X$,Y#: GOTO 1294 

1300 KK = 1: GOTO 1260 

1310 IF C < 32 OR C = 127 GOTO 1430 

1320 IF PEEK (49249) > 127 AND C > 47 AND C < 91 THEN S =S # 
80 

1330 XDRAW CT AT X8#,Y#: DRAWN S AT X8,Y# 

1340 IF TT = O0 THEN CT = CR:KK = O0: GOTO 1370 

1350 CT = S: IF MN GOTO 1294 


"; :DI = EP: GOSUB 760:EP = DF: POKE AA,EP 


VTAB 21: PRINT "SATURA 


VTAB 23: PRINT "SUPERPOSITION CONFIRM 
GET CARS: IF CAR$ < > "“O" AND CAR$ < > "o" GOT 


Pom's n° 31 


VCXI=XFAXKSORC 1-X720 
ou: 


Y=K+MN1I-KZ 
(Ellipses) 


a 
NE 


1360 GOTO 1260 
1370 X$ = X4 + 7 





1380 IF X$ 
Xt = X$ - 

1390 IF X4 < 2 THEN Y# = Y$ - 8:X$ = X$ + 273: IF X$8 < 271 THEN 
X4 = X$ + 7 

1400 IF Yé < 4 THEN Yé& = 186 

1410 IF Yé > 186 THEN Y$ = 4 


1420 XDRAW CT AT X$#,Y$#: GOTO 1260 

1430 IF KK = 1 THEN KK = O0: DRAW CT AT X8,Y4: GOTO 1450 

1440 XDRANWN CT AT X8,Y# 

1450 IF C = 13 THEN RO = 
E= SC:KK = 0: RETURN 

1460 IF (C = 1 AND SC < 51) OR (C = 
+ (C = 1) - (C = 26): SCALE= SC 

1470 IF C = 23 THEN RO = (RO = 56) * O + (RO < 56) * (RO + 8): 


v 


277 THEN Y$ = Yé + 8:X4 = X$ - 273: IF X4 > 8 THEN 
7 


0: ROT= RO:CT = CR:TT = 0:SC = l: SCAL 


26 AND SC > 1) THEN SC = SC 


ROT= RO 
1480 IF C = 127 THEN DRAW CT AT X$,Y$#: XDRAW CT AT X&,Y#:C = 8 
1485 IF TT = 1 AND MN = 1 THEN XDRAW CT AT X$#,Y#: GOTO 1294 


1490 VX = T:VY = 8 

1500 IF PEEK (49250) > 127 THEN VX = l:VY = 1 

1510 IF PEEK (49249) > 127 THEN VX = 70:VY = 48 

1520 IF C = 21 THEN X$ = X$ + VX 

1530 IF C = 8 THEN X$ = X$ - VX 

1540 IF C = 10 THEN Y$ = Y$ + VY 

1550 IF C = 11 THEN Y$ = Y$# - VY 

1560 GOTO 1380 

1570 REM #** C,D,A,E ** 

1580 PT = l1:RX = X08 - X18:RY = Y1$ - YO$:RA = INT ( SOR (RX * 
2 + RY * 2) + .5) 

1590 IF RA = O0 THEN RETURN 

1600 XDRAW CU AT X08,Y0# 

1610 IF R = 65 OR R = 69 GOTO 1750 

1620 XH = INT (X1$ / 256):XB = X1$ - XH * 256: POKE AA + 4,XB: 
POKE AA + 5,XH: POKE AA + 6,Y1$ 

1630 IF RA > 255 THEN RETURN 

1640 IF R = 68 GOTO 1660 

1650 POKE AA + 9,RA: CALL AC: RETURN 

1660 RM = RA: FOR RA = 1 TO RM: GOSUB 1650: IF PEEK (49152) > 1 
27 THEN POKE 49168,0: RETURN 

1662 NEXT 

1670 IF RA < 64 GOTO 1730 

1680 FOR I = - RA TO - 64: GOSUB 1710: NEXT 

1690 FOR I = 64 TO RA: GOSUB 1710: NEXT 

1700 RA = 64: GOTO 1730 

1710 IF YI$ + I > - 1 AND Y1$# + I < 192 AND X1$ > 1 AND X1$# < 
192 THEN HPLOT X18# - 1,Y1$ + I TO X16 + 1,Y1$ + I 

1720 RETURN 

1730 FOR I = — RA TO RA: IF Y1$ + I > - 1 AND Yl1# + I < 192 T 
HEN  HPLOT X18,Y1$ # I 

1740 NEXT : RETURN 

1750 D = .02 

1760 IF R= 65 THEN X = XO$:Y = YO$:EX = l:EY = 1: 

1770 IF RX = O OR RY = O0 THEN RETURN 

1780 IF ABS (RX) > = ABS (RY) THEN X = 
O 1800 

1790 X = XIS#:Y = Y1$ - RY 

1800 EX = ABS (RX / RY):EY = ABS (RY / RX) 

1810 HPLOT X,Y 

1820Y = Y +EY * D * (X - XI$):X = X - EX * D * (Y — Y14) 

1830 IF X < O0 OR X > 279 OR Y < O OR Y > 191 GOTO 1820 

1840 HPLOT TO X,Y 

1850 IF PEEK (49152) > 127 THEN TH = PEEK (49152) - 128: POKE 
49168,0: GOTO 1870 

1860 GOTO 1820 

1870 IF TH = 13 GOTO 1900 

1880 GET CAR$: IF CAR$ = CHR$S (13) GOTO 1900 

1890 GOTO 1820 


GOTO 1810 


X1$ + RX:Y = Y1#$: GOT 














15 








1900 X$# = X:Y$ = Y: RETURN 


1910 REM ** G,Y ** 
1920 X08 = X6:Y0$ = Y#: DRAW CG AT X08,Y 
0 


1930 IF MN THEN MR = l:MN = 0 

1940 GOTO 1970 

1950 IF PEEK (49152) > 127 THENR= P 
EEK (49152) - 128: POKE 49168,0 

1960 GOSUB 80: XDRAW CG AT X08,Y0#:X08 
= X6:Y0$ = Y$: DRAW CG AT X08,Y0$ 

1970 IF R = 89 THEN XDRAW CG AT X08%,Y0 
$: ROT= 16: DRAW CG AT X08,Y0$ 

1980 IF R = 71 THEN XDRAW CG AT X08,Y0 
#: ROT= 0: DRAW CG AT X08,Y0# 

1990 IF R = 13 THEN XDRAW CG AT X08,Y0 
#: DRAW CU AT X08,YO#$: ROT= O:MN = MR 
:MR = 0: RETURN 

2000 R = 0: GOTO 1950 

2010 REM ** CHARGER,ENREGISTRER, CATALO 
G + 

2020 IF NOT PL THEN RETURN 

2030 HTAB l: VTAB 14: PRINT "LECTEUR N° 
:";: INVERSE : PRINT NL;: NORMAL : CA 
LL - 1008: GET CARS: IF CARS = CHR$ 

(13) THEN RETURN 
2040 IF CAR$ < > "1" AND CAR$ < > "2" 


GOTO 2020 

2050 NL = VAL (CAR$): INVERSE : PRINT N 
L: NORMAL : RETURN 

2060 GOSUB 2020 

2070 PRINT : PRINT D$"CATALOG, D'NL: PRI 


NT : INPUT "NOM DE L'IMAGE:";IM$: IF 
IM$ = "" GOTO 2110 

2080 PG = ASC ( LEFTS (IM$,1)): IF PG < 

65 OR PG > 90 THEN VTAB 9: GOTO 207 

0 

2090 IF I = 2 THEN XDRAW CU AT X$,Y$#: 
PRINT D$"BSAVE"IMS$",A$2000, L$2000, D"; 
NL: GOTO 2110 

2100 PRINT D$"BRUN CHARGE.O0BJ, A$9000" 

2105 & IM$, 8192 


2110 RETURN 
2120 HOME : GOSUB 2020: HOME : PRINT 
2130 PRINT D$"CATALOG, D'NL: INVERSE : P 


RINT "FIN": NORMAL 

2140 GET CAR$: HOME : RETURN 

2150 REM ** INFORMATIONS ** 

2160 TEXT : HOME : FOR I = 1 TO 22 

2170 IF (1 = 4 OR I = 5) AND ME = 0 GOT 
Oo 2200 

2180 IF I = 21 AND MA = O0 THEN I = 25:: 
PRINT "B -> ECHANGE BIS": GOTO 2200 

2190 PRINT INS(F) 

2200 NEXT 

2210 PRINT INS$S(23); 

2220 GET CAR$: POKE 49232,0: POKE 49239 
#0: POKE 49236,0: RETURN 

2230 REM ** DEBUT ** 

2240 HOME : VTAB 8: HTAB 12: INVERSE : 
PRINT " SCHEMATEUR ": NORMAL : VTAB 1 
4: PRINT "TOUCHE 'Q' POUR ACCEDER AU 
MENU": VTAB 19: PRINT "TOUCHE "Ctrl 
Q' POUR AIDE-MEMOIRE" 

2250 ZC = 29:IN = S1:N = 6 

2260 ME = 0: IF PEEK (207) THEN ME 

2270 PL = O0: IF PEEK (214) THEN PL 1 

2280 MA = 0: IF PEEK (215) THEN MA = 1 

2290 AA = 2817:AL = 6000:AE = AA + 17 

2300 DIM R(ZC),IN$S(IN) 

2310 CU = 1:CG = 2:CT = 98:KK = 0:SC = 1 
:RO = O:CR = 1:TT = 0 

2320 DE = 5:CL = 3:MN = O:MR = 0:X$ = 13 
J:Y$ = 95:X08 = XS:Y08 = YS:PT = O:DP 
= 0:ST = 1:NL = 1:B = 0:DH = O:NI = 
O:VX = 12:VY = 12:MD = O:PA = 3:EP = 
1 

2330 C = 0:S = O0:PG = O:RX = O:RY = O:RA 
= 0:D = O:EX = l:EY = l:TH = 0:R = 0 
:X1$# = O:Y1$ = O:XH = O:XB = 0:CH = 0 
:X = O:Y = O:NU 0:CE = 0 

2340 IM$ = "":CAR$S = "":CLS = 
HR$ (4) 

2350 FOR I = 1 TO IN: READ INS$(I): NEXT 


1 


“:DS = C 


2360 
2370 
2380 


FOR I = 1 TO ZC: READ R(I): NEXT 
IF PEEK (235) GOTO 2420 
POKE 233, INT (AL / 256): POKE 232 


#AL - 256 * ( INT (AL / 256)) 
2390 PRINT D$"BRUN CHARGE.OBJ, A$ 9000" 
2400 & "CARAC.SH",AL: & "SCHEM.C",AA 
2410 POKE 235,1 
2420 AF = AE + 3:AB = AE + 6:A0 = AE + 9 
:AI = AE + 12:AU = AE + 15:AC = AE # 
18:AG = AE + 21:AV = AE + 24:AP = 


+ 27:AW = AE + 30:AS = AE + 33 

2430 POKE AA + 16,1: POKE AA + 3,NI: PO 
KE AA + 8,B 

2440 POKE AA + ]1,MD: POKE AA + 2,PA: PO 
KE AA,EP - 1 

2450 ONERR GOTO 2710 

2460 POKE 49232,2: POKE 49239,0: POKE 4 
9236,0: POKE 49234,0 

2470 HCOLOR= CL: ROT= RO: SCALE= 1 

2480 DRAW CU AT X0$%,Y0# 

2490 GOSUB 200: TEXT : 

2500 REM ** MENU ** 

2510 FOR I = 1 TO N: GOSUB 2670: NEXT 

2520 I = 1: INVERSE : GOSUB 2670: NORMAL 


HOME 


2530 VTAB 22: PRINT "FLECHES -> CHOISIR 
RETURN -> VALIDER" 

VTAB 23: GET CAR$:CH = ASC (CARS) 
IF CH = 10 OR CH = 8 THEN GOSUB 2 
670:I = I + 1: INVERSE : GOSUB 2670: 


NORMAL 


2560 IF CH = 11 OR CH = 21 THEN GOSUB 
2670:I = I - 1: INVERSE : GOSUB 2670: 
NORMAL 

2570 IF CH = 13 THEN HOME : GOTO 2590 


2580 GOTO 2540 

2590 ON I GOTO 2600,2610,2620,2660,2630 
,2640 

2600 POKE 49232,0: POKE 49239,0: POKE 4 
9236,0: GOTO 2490 

2610 GOSUB 2060: GOTO 2600 

2620 GOSUB 2060:PT = 1: GOTO 2600 

2630 GOSUB 2120: GOTO 2510 


2640 XDRAW 1 AT X8,Y$: TEXT : HOME : PR 
INT 

2650 PRINT D$"RUN MENU, D1": REM 2e ET 
No 

2660 PRINT : PRINT D$"RUN GRAVURE, DI" 

2670 IFI=N +1 THEN I=1 


2680 IF I=OTHENI=N 
2690 VTAB I + DE: HTAB 4: PRINT IN$(34 
+ 1): RETURN 


2700 REM ** ERREUR ** 

2710 ER = PEEK (222): IF ER = 6 THEN T 
EXT : HOME : VTAB 10: PRINT "FICHIER 
ABSENT": GET CAR$ 

2720 HOME : GOTU 2510 


2730 DATA LES FLECHES DEPLACENT LE POI 
NT, POMME BLANCHE -> RAPIDE, POMME NOIR 
E ->LENT, Tab -> MANETTES, Tab -> FLEC 
HES, Del -> EFFACE 
2740 DATA K -> COULEUR I -> INVE 
RSION,X -> POINT DE DEPART, Z -> DEPAR 
T PERMANENT, BARRE ESPACE -> RELIE DEU 
X POINTS, H -> RELIE HORIZONTALEMENT, V 
-> RELIE VERTICALEMENT 
2750 DATA R -> RECTANGLE,C -> CERC 
LE D -> DISQUE,F -> FENETRES 
M -> MOUVEMENT, A -> ARC DE CERCLE 
E -> ELLIPSE,G -> GOMME HORIZONTA 
LE Y ->VERTICALE 
2760 DATA S -> REMPLIT UNE SURFACE, 
P -> MODE REMPLISSAGE L -> LIMITES, 
W -> ECHANGE DESSINS U -> UNION,B 
—> METTRE EN BANQUE O -> OBSERVER, N 
—> REMPLACER EN BANQUE J -> NOMBRES 
,T -> TEXTE Ctrl Q -> INFORMATIO 
NS 
2770 DATA MODE DE REMPLISSAGE DES SUR 
FACES,C -> REMPLISSAGE COMPLET, V -> L 
IGNES VERTICALES,H -> LIGNES HORIZONT 
ALES,P -> POINTILLES,Q -> QUADRILLAGE 
D -> HACHURES PENCHEES A DROTE,G -> 
HACHURES PENCHEES A GAUCHE, L -> LOSAN 
GS 
2780 DATA L'OPTION "PAS' DONNE L'ECART 
ENTRE LES MOTIFS, L'OPTION "EPAISSEU 
R' DONNE L'EPAISSEUR DES TRAITS 
2790 DATA RETOUR A L'IMAGE, ENREGISTRER 
L'IMAGE, CHARGER UNE IMAGE, IMPRIMER, C 
ATALOGUE, QUITTER LE PROGRAMME 
2800 DATA VOUS ETES EN MODE TEXTE,T 
OUT LE CLAVIER AZERTY EST OPERATIONNE 
L,LES FLECHES DEPLACENT LE CURSEUR, De 
1 -> EFFACE,Ctrl À -> AGRANDIT,Ctri Z 
-> RAPETISSE, Ctrl W -> FAIT TOURNER 
2810 DATA -,Esc -> AFFICHE CARACTERE 
QU SHAPE, DEPLACEMENT COMME EN MODE GR 
APHIQUE, BARRE ESPACE -> MARQUE 
2820 DATA 81,127,78, 76, 90, 88, 86, 32, 72 
1 82, 70,75, 79,17, 87, 83, 84,67,68, 65, 69, 
71, 89,85, 73,66, 80, 74,77 














Programme GRAVURE 


5 HIMEM: 36863 

10 REM *** GRAVURE *** 

20 D$ = CHR$ (4):DM = 1 

30 ONERR GOTO 890 

40 IF PEEK (103) + 256 * 
24577 GOTO 70 

50 POKE 103,1: POKE 104,96: POKE 24576, 
0 

60 PRINT D$S"RUN GRAVURE" 

70 HOME : VTAB 10: HTAB 6: INVERSE : PR 
INT " PROGRAMME GRAVURE ": NORMAL : 
VTAB 15: HTAB 6: PRINT "SORTIE SUR IM 
PRIMANTE": HTAB 11: PRINT "IMAGEWRITE 
R" 

80 DIM C(8),D(14) 

90 FOR I = 1 TO 8: READ C({1): NEXT : FO 
R I = 1 TO 14: READ D(I): NEXT 

100 FOR I = 0 TO 3: READ FR$(I): NEXT : 
FOR I = 1 TO 3: READ IN$S(I): NEXT 

110 IH = 48:1B = 48:MB = 48:MH = 48 

120 NL = l:PL = 0: IF PEEK (214) THEN P 
L=1 

130 AG = 2049:AC = 206: REM **ADRESSES 
DU PROGRAMME COUT ET DU CARACTERE EN 
VOYE** 

140 AP = AG + 6: REM 
AMME GRAV.C** 

150 IF PEEK (237) GOTO 180 

160 PRINT : PRINT D$"BLOAD GRAV.C,A"AG 

170 POKE 237,1 

180 HOME : VTAB 9: PRINT "RETURN POUR I 
MAGE EN COURS": PRINT "AUTRE TOUCHE P 
OUR NOUVELLE IMAGE";: GET CARS: IF CA 
RS < > CHRS$S (13) GOTO 210 

200 POKE 49232,0: POKE 49234,0: POKE 49 
236,0: POKE 49239,0: GOTO 270 

210 IF NOT PL GOTO 250 

220 HTAB 1: VTAB 13: PRINT "LECTEUR N°: 
";: INVERSE : PRINT NL;: NORMAL : CAL 
L - 1008: GET CARS: PRINT CARS: IF C 


PEEK (104) = 


*ADRESSE DU PROGR 


AR$ = CHR$ (13) GOTO 250 

230 IF CAR$ < "1" OR CAR$ > "2" GOTO 22 
Le] 

240 NL = VAL (CARS) 


250 PRINT : PRINT D$"CATALOG,D'NL: PRIN 
T : INPUT "NOM DE L'IMAGE:";IM$: IF I 
M$ = "" GOTO 180 

260 HGR : POKE 49234,0: PRINT : PRINT D 
$"BRUN CHARGE.OBJ, A$9000": 4 IM$, 8192 

270 GET CARS: TEXT 

280 HOME : PRINT "L'IMPRIMANTE EST-ELLE 

PRETE (O/N)?2:";: INVERSE : PRINT "O"; 
: NORMAL : CALL - 1008: GET CAR$: PR 
INT CARS: IF CARS = "N" OR CARS = "n" 
GOTO 760 

290 VTAB 3: PRINT "NOUVELLES DISPOSITIO 
NS(O/N)?:";: INVERSE : PRINT "O";: NO 
RMAL : CALL - 1008: GET CARS: PRINT 
CARS: IF CARS < > "N" AND CAR$ < > 
“"n" GOTO 310 

300 GOTO 580 

310 IC = 0: HOME : VTAB 3: PRINT "INVERS 
ER NORMALEMENT LA COULEUR(O/N)?:";: I 
NVERSE : PRINT "O";: NORMAL : CALL - 

1008: GET CARS: PRINT CARS: IF CAR$ 
= "O" OR CAR$ = "o" OR CARS = CHR$ ( 
13) THEN IC = 1 

320 HOME : VTAB 2: PRINT "L'image peut 
s'imprimer en deux hauteursHauteur si 
mple(6.7cm) ou double(13.4cm)" 

330 HI = 1: VTAB 5: PRINT "IMAGE DE HAUT 
EUR SIMPLE(O/N)2?:";: INVERSE : PRINT 
"O";: NORMAL : CALL - 1008: GET CAR$ 
: PRINT CARS: 1F CAR$ = "O" OR CARS = 

“o" OR CAR$ = CHR$ (13) THEN HI = 0 

340 DM = IC + 2 * HI 

350 IF DM > 1 AND D(1) = 4.4 THEN FOR 
I = 1 TO 8:D(1) = 2 * D(I}: NEXT 

360 IF DM < 2 AND D(1) = 8.8 THEN FOR 
I = 1 TO 8:D{1) = D(I) / 2: NEXT 

370 HOME : VTAB 3: PRINT FR$ (DM): VTAB 
5: PRINT "DEFORMATION HORIZONTALE (O/N 
)2:";: INVERSE : PRINT "N";: NORMAL : 

CALL — 1008: GET CAR$: PRINT CAR$ 

380 IF CAR$ = "N" OR CARS = "n" OR CAR$ 

= CHR$ (13) THEN DO = 14:D = D(8):D 
I = 2: GOTO 480 

390 II = 14: 1F DM > 1 THEN II = 8 

400 VTAB 7: PRINT "LARGEUR DE L'IMAGE:" 
: FOR I = 1 TO II: PRINT CHR$ (64 + 
I)" ("D(I)" cm)": NEXT : VTAB 15: HT 
AB 12: INVERSE : PRINT "NORMAL": NORM 


Pom's n° 31 





AL 

410 IF DM > 1 GOTO 460 

420 VTAB 23: PRINT "CHOIX (A à N):";: GE 
T CAR$:DI = ASC (CARS) - 64: IF DI < 

1 CR DI > 14 GOTO 420 

430 DO = 15: IF DI > 6 THEN DO = 14 

440 D = D(DI): IF DI > 6 THEN DI = DI - 
6 

450 GOTO 480 

460 VTAB 17: PRINT "CHOIX (A à H):";: GE 
T CAR$:DI = ASC (CARS) - 64: IF DI < 

1 OR DI > 8 GOTO 460 

470 DO = 15:D = D(DI) 

480 HTAB 1: VTAB 5: CALL - 958:CI = C{ 
DI): PRINT : PRINT "LARGEUR DE L'IMAG 
E: "D" cm'":H = 6.7 * (DM < 2) + 13.4 
* (DM > 1): PRINT "HAUTEUR DE L'IMAGE 

"y" em" 

490 VTAB 10: HTAB l: PRINT "POSITIONNEM 
ENT DU COIN SUPERIEUR GAUCHE DE L'ECR 
AN CONTENANT L'IMAGE:" 

500 VTAB 13: HTAB l: PRINT "MARGE HAUTE 

(DE O0 À 24 cm):";: INVERSE : PRINT " 
O0";: NORMAL : CALL - 1008: INPUT ""; 
Y$: IF Y$ = "" THEN VTAB 13: HTAB 29 
: PRINT "O":Y = 0: GOTO 520 

510 Y = VAL (Y$): IF Y < O0 OR Y > 24 GO 
TO 500 

520 IL = 3.85 * Y:IH = INT (IL / 10):1B 

= INT (IL - 10 * IH) + 48:IH = IH + 

48 

530 VTAB 15: HTAB 1: PRINT "(10.1 pour 
raccorder une image simple)" 

540 VTAB 14: HTAB l: PRINT "MARGE GAUCH 
E (DE 0.3 À 16.5cm):";: INVERSE : PRI 
NT "0.3";: NORMAL : CALL - 1008: CAL 
L - 1008: CALL - 1008: INPUT "";Xx$: 

IF X$ = "" THEN VTAB 14: HTAB 32: P 
RINT "O.3":X = 0.3: GOTO 560 

550 X = VAL (X$): IF X < 0.3 OR X > 16. 
5 GOTO 540 

560 MG = 3.6 * (X - 0.3):MH = INT (MG / 

10):MB = INT (MG - 10 * MH) + 48:MH 


= MH + 48 
570 VTAB 18: PRINT "EST-CE EXACT(O/N)?: 
“;: INVERSE : PRINT "O";: NORMAL : CA 


LL - 1008: GET CARS: PRINT CARS: IF 
CARS = "N" OR CAR$ = "n" GOTO 760 

580 PRINT : PRINT D$"PR£I" 

590 PRINT CHR$ (27);"n" 

600 POKE 6,1: POKE 7,DM 

610 POKE AG + 15,CI 

620 POKE AC,27: CALL AG: POKE AC,114: C 
ALL AG 

630 POKE AC,27: CALL AG: POKE AC, 84: CA 
LL AG: POKE AC,50: CALL AG: POKE AC, 5 
5: CALL AG: POKE AC,31: CALL AG: POKE 
AC, 49: CALL AG ï 

640 POKE AC,27: CALL AG: POKE AC,102: C 
ALL AG 

650 IF IH = 48 AND IB = 48 GOTO 680 

660 POKE AC,27: CALL AG: POKE AC, 84: CA 
LL AG: POKE AC,IH: CALL AG: POKE AC, I 
B: CALL AG 

670 POKE AC,31: CALL AG: POKE AC, 63: CA 
LL AG 

680 POKE AC,27: CALL AG: POKE AC,110: C 
ALL AG 

690 POKE AC,27: CALL AG: POKE AC, 76: CA 
LL AG: POKE AC,48: CALL AG: POKE AC,M 
H: CALL AG: POKE AC,MB: CALL AG 

700 POKE AC,DO: CALL AG 

710 POKE 49239,0: POKE 49234,0: POKE 49 
232,0 

720 POKE 6,1: POKE 7,DM 

730 CALL AP 

740 PRINT : PRINT D$"PR£O" 

750 POKE 49233,0 

760 HOME : FOR I = 1 TO 3: GOSUB 770: N 
EXT 

761 I = l: INVERSE : GUSUB 770: NORMAL 

762 VTAB 22: PRINT "FLECHES -> CHOISIR 
RETURN -> VALIDER" 

763 VTAB 23: GET CAR$:CH = ASC (CARS) 

764 IF CH = 10 OR CH = 8 THEN GOSUB 77 
0:I = I + l: INVERSE : GOSUB 770: NOR 
MAL 

765 IF CH = 11 OR CH = 21 THEN GOSUB 7 
70:I = I - 1: INVERSE : GOSUB 770: NO 
RMAL 

766 IF CH = 13 THEN HOME : GOTO 775 

767 GOTO 763 

770 IF I = 4 OR I = O THEN I = ABS (I 
_ 3) 
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772 VTAB I + 8: HTAB 4: PRINT INS(I): R 
ETURN 

775 ON I GOTO 790,790, 780 

780 PRINT : PRINT DS"RUN MENU,DI" 

790 HOME : VTAB 10: PRINT "REVENIR AU N 
IVEAU PRECEDENT (O/N):";: INVERSE : P 
RINT "N";: NORMAL : CALL - 1008: GET 
RMS: PRINT RMS: IF RMS = "O" OR RMS 
= "o" THEN GOSUB 820 

800 IF I = 1 THEN HOME : 

810 GOTO 210 

820 PRINT : PRINT DS"PR£I" 

830 POKE AC,27: CALL AG: POKE AC, 114: C 
ALL AG 

840 POKE AC,27: CALL AG: POKE AC, 84: CA 
LL AG: POKE AC,55: CALL AG: POKE AC, 5 


4: CALL AG 

850 POKE AC,31: CALL AG: POKE AC, 53: CA 
LL AG 

855 POKE AC,27: CALL AG: POKE AC, 84: CA 
LL AG: POKE AC,48: CALL AG: POKE AC, 4 
9: CALL AG: POKE AC,31: CALL AG: POKE 
AC, 49: CALL AG 

860 POKE AC,27: CALL AG: POKE AC, 102: C 
ALL AG 

870 PRINT 

880 RETURN 

890 ER = PEEK (222) 

900 IF ER = 6 THEN TEXT : HOME : VTAB 
10: PRINT "PAS D'IMAGE DE CE NOM.": P 
RINT "TAPEZ UNE TOUCHE.": GET CARS: H 
OME : GOTO 760 

910 GOTO 760 

920 DATA 80,112,81,113,101,69,78,110 

930 DATA 4.4,5,5.3,5.8,6.6,7.5,8.8,10, 
10.6,11.6,13.2,15,17.6,20 

940 DATA HAUTEUR SIMPLE - PAS D'INVERS 
ION, HAUTEUR SIMPLE - INVERSION NORMAL 
E,HAUTEUR DOUBLE - PAS D'INVERSION, HA 
UTEUR DOUBLE - INVERSION NORMALE 

950 DATA IMPRESSION DE LA MEME IMAGE, A 
UTRE IMAGE, QUITTER LE PROGRAMME 


GOTO 290 


: PRINT D$"PR£O" 





Programme MENU 


10 REM ** PROGRAMME MENU ** 
20 POKE 207,1: POKE 214,1: POKE 215,1: 
REM  *MANETTES, LECTEURS, MEMOIRE AUXIL 
IAIRE* 
30 N = 3: REM 
+ 

40 REM ** TITRES DU MENU: ** 

50 DATA PROGRAMME SCHEMATEUR, GRAPHES 
DE FONCTIONS, IMPRESSION SUR IMAGEWRI 
TER 

é6ON=N+3 

70 DATA CONFIGURATION, CATALOGUE DE LA 
DISQUETTE, QUITTER 

80 REM ** NOMS DES PROGRAMMES: ** 

90 DATA  SCHEMATEUR, FONCTION, GRAVURE 

100 REM ** DISPOSITION DU MENU: ** 

110 ND = 1:DE = 12:D$ = CHRS (4) 

120 DIM R$(N),F$(N) 

130 FOR I = 1 TO N: READ R$(I): NEXT 

140 FOR I = 1 TO N - 3: READ F$(I): NEX 
T 

150 HOME : VTAB 4: PRINT "M.CAUET": PRI 
NT "OCTOBRE 1986" 

160 GOSUB 220 

170 IF I = N THEN HOME : END 

180 IF I = N- 1 THEN PRINT : PRINT D$ 
"CATALOG": PRINT : INVERSE : PRINT "R 
ETURN": NORMAL : GET CARS: GOTO 150 

190 IF I = N- 2 THEN GOTO 340 

200 PRINT : PRINT D$"RUN"FS (I) 

210 REM ** AFFICHAGE MENU ** 

220 FOR J = ND TO N: GOSUB 300: NEXT :I 
= ND: INVERSE : GOSUB 300: NORMAL 
230 VTAB 22: PRINT "FLECHES POUR CHOISI 

R-RETURN POUR VALIDER" 

240 VTAB 23: GET MES:ME = ASC (MES) 

250 IF ME = 10 OR ME = 21 THEN GOSUB 3 
00:1 = I + 1: INVERSE : GOSUB 300: NO 
RMAL 

260 IF ME = 11 OR ME = 8 THEN GOSUB 30 
0:1 = I - 1: INVERSE : GOSUB 300: NOR 
MAL 

270 IF ME = 13 THEN HOME : RETURN 

280 IF ME > 48 AND ME < 49 + N THEN I = 

ME - 48: HOME : RETURN 

290 GOTO 240 


** NOMBRE DE PROGRAMMES 


A ———————————————— " — ——— 


300 IFI N + 1 THEN I = ND 

310 IFI ND - 1 THEN I=N 

320 VTAB I + DE - 1: PRINT I;"-";RS(I): 
RETURN 

330 REM ** CONFIGURATION ** 

340 HOME : VTAB 10: PRINT "CONFIGURATIO 
N ACTUELLE:" 

350 VTAB 12: HTAB l: PRINT "PAS DE MANE 
TTES": IF PEEK (207) THEN VTAB 12: 
HTAB 1: CALL - 868: PRINT "MANETTES" 

360 VTAB 13: HTAB l: PRINT "1 LECTEUR": 

IF PEEK (214) THEN VTAB 13: HTAB 1 
: PRINT "2 LECTEURS" 

370 VTAB 14: HTAB l: PRINT "PAS DE MEMO 

IRE AUXILIAIRE": IF PEEK (215) THEN 
VTAB 14: HTAB 1: CALL - 868: PRINT 
"MEMOIRE AUXILIAIRE" 

380 VTAB 18: HTAB 1: PRINT "RETURN POUR 
CONFIRMER.": PRINT "'C' POUR MODIFIE 
R": GET CAR$: IF CAR$ < > "C" AND CA 
R$ < > "c" GOTO 150 

390 HOME : VTAB 10: PRINT "AVEZ-VOUS DE 
S MANETTES? (O/N):";: GET MES: PRINT M 
ES$:ME = ((MES$ = "N") + (ME$ = "O") * 
2) —- 1: IF ME = - 1 GOTO 390 

400 VTAB 12: PRINT "AVEZ-VOUS DEUX LECT 
EURS?(O/N):";: GET PL$: PRINT PLS:PL 
= ((PL$ = "N*) + (PL$ = "O") * 2) - 1 

IF PL = - 1 GOTO 400 

410 VTAB 14: PRINT "MEMOIRE AUXILIAIRE? 
(O/N):";: GET MA$: PRINT MAS:MA = ((M 
A$ = "N°) + (MA$ = "O") * 2) - 1: IF 
MA = - 1 GOTO 410 

420 POKE 24613,ME + 48: POKE 24620,PL + 

48: POKE 24627,MA + 48 

430 PRINT CHRS$ (13); CHR$ (4) "SAVE MEN 
u" 

440 PRINT CHR$ (13); CHR$ (4) "RUN MENU 


VCRI=SINCXD/X 


et sa dérivée en 
sointillé 








Programme GRAPHISME 


10 REM 

20 HOME 

30 HGR2 

40 HGR 

50 TEXT 

60 REM ** NETTOIE MEV COMMUTEE ** 

70 PRINT CHR$ (4)"BLOAD HEL.C" 

80 CALL 768 

90 REM ** POINTEURS PROG.MACHINE:SCHE 
M/CARAC - FONC - GRAV ** 

100 FOR I = 235 TO 237: POKE 1,0: NEXT 

110 REM #** PLACE LES PROGRAMMES AU-DES 
SUS DE HGR2 ** 

120 POKE 103,1: 
#0 

130 PRINT CHR$ (13); CHR$ (4) "RUN MENU 


140 END 


** HELLO ** 


POKE 104,96: POKE 24576 
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Récapitulation 





CARAC.SH 


Après avoir saisi ce code sous 


moniteur, 


par 


vous le sauvegarderez 


BSAVE CARAC.SH, A$4000,L$6C1 


4000: 
4008: 
4010: 
4018: 
4020: 
4028: 
4030: 
4038: 
4040: 
4048: 
4050: 
4058: 
4060: 
4068: 
4070: 
4078: 
4080: 
4088: 
4090: 
4098: 
40A0: 
40A8: 
40B0: 
40B8: 
40C0: 
40C8: 
40D0: 
40D8: 
40E0: 
40E8 : 
40F0: 
40F8: 
4100: 
4108: 
4110: 


4118 


4120: 
4128: 
4130: 
4138: 
4140: 
4148: 
4150: 
4158: 
4160: 
4168: 
4170: 
4178: 
4180: 


4188 


4190: 
4198: 
41A0: 
41A8: 
41B0: 
41B8: 
41C0: 
41C8: 


8D 
25 


:A8 


:00 


00 
01 
01 
01 
01 
01 
01 
01 
02 
02 
02 
02 
02 
02 
03 
03 
03 
03 
03 
03 
04 
04 
04 
04 
04 
04 
05 
05 
05 
05 
05 
05 
06 
06 
06 
06 
04 


1C 
2C 
54 
74 
92 
B2 
DD 
06 
20 
4D 
7D 
A7 
D1 
FF 
2B 
57 
83 
AO 
c9 
EF 
15 
3E 
63 
8D 
BD 
E8 
0A 
29 
61 
93 
CB 
09 
39 
62 
88 
B5 
00 
04 
3F 
25 
15 
oc 
24 
65 
05 
06 
06 
3F 
8D 
F6 
12 
06 
2E 
24 
65 
25 
15 
oc 


01 
01 
01 
01 
01 
01 
01 
02 
02 
02 
02 
02 
02 
02 
03 
03 
03 
03 
03 
03 
04 
04 
04 
04 
04 
04 
05 
05 
05 
05 
05 
06 
06 
06 
06 
06 
03 
00 
1E 
00 
1F 
DC 
00 
1C 
00 
00 
00 
T7 
3A 
04 
05 
00 
1E 
BC 
E4 
00 
2D 
oc 


1E 
30 
60 
81 
95 
BC 
E7 
OA 


E7 


01 
01 
01 
01 
01 
01 
01 
02 
02 
02 
02 
02 
02 
03 
03 
03 
03 
03 
03 
03 
04 
04 
04 
04 
04 
04 
05 
05 
05 
05 
05 
06 
06 
06 
06 
00 
40 
6C 
6F 
oc 
3F 
2E 
1C 
16 
1C 
oc 
1C 
0D 
77 
3F 
oc 
25 
2D 
31 
17 
oc 
24 
36 


23 
3C 
64 
89 
gc 
c7 
FO 
0F 
33 
64 
92 
BC 
E9 
17 
42 
67 
8F 
B3 
DD 
04 
28 
50 
76 
A5 
DA 
F9 
18 
44 
7A 
B5 
E7 
24 
4E 
76 
9D 


01 

01 

01 

01 

01 

01 

01 

02 
02 
02 
02 
02 
02 
03 
03 
03 
03 
03 
03 
04 
04 
04 

04 
04 
04 

04 
05 
05 
05 
05 
05 
06 
06 
06 
06 
2D 
33 
00 
F6 
15 
29 
17 
AE 
00 
24 
24 
6E 
07 
05 
11 





41D0:00 
41D8:1E 
41E0:1C 
41E8:0C 
41F0:E7 


41F8:1C 
4200:77 
4208:06 
4210:E2 
4218:38 
4220:93 
4228:00 
4230:16 
4238:12 
4240:00 
4248:1C 
4250:2D 
4258:00 
4260:2D 
4268:27 
4270:39 
4278:96 
4280:24 
4288:35 
4290:35 
4298:36 
42A0:67 
42A8:72 
42B0:0E 
42B8:1E 
42C0:24 
42C8:36 
42D0:00 
42D8:2E 
42E0:24 
42E8:00 
42F0:36 
42F8:24 
4300:15 
4308:15 
4310:97 
4318:1F 
4320:92 
4328:BE 
4330:4D 
4338:24 
4340:07 
4348:17 
4350:6C 
4358:0C 
4360:25 
4368:41 
4370:04 
4378:2D 
4380:0C 
4388: 92 
4390:E3 
4398:36 
43A0:43 
43A8:24 
43B0:2D 
43B8:2D 
43C0:25 
43C8:00 
43D0:04 
43D8:36 
43E0:FE 
43E8 : OC 
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3A 


24 


24 


BE 


E7 


31 
24 


3B 


DA 


2B 
24 


F6 


BO 


43F0:0C 
43F8:41 
4400:1C 
4408:36 
4410:FF 
4418:6E 
4420:36 
4428:9A 
4430:36 
4438:2D 
4440:1E 


4448:F7 
4450:08 
4458:04 
4460:24 
4468:1C 
4470:34 
4478:1E 
4480:04 
4488:38 
4490:F5 
4498:1A 
44A0:36 
44A8:36 
44B0:1A 
44B8:36 
44C0:04 
44C8:36 
44D0:36 
44D8:00 
44E0:04 
44E8:39 
44F0:00 
44F8:00 
4500:1B 
4508:04 
4510:04 
4518:E7 
4520:1B 
4528:00 
4530:47 
4538:15 
4540:2D 
4548:24 
4550:96 
4558:1C 
4560:00 
4568:24 
4570:40 
4578:25 
4580:6D 
4588:B0 
4590:15 
4598:3F 
45A0:43 
45A8:F8 
45B0:41 
45B8:F5 
45C0:04 
45C8:2D 
45D0:33 
45D8:00 
45E0:4D 
45E8:95 
45F0:26 
45F8:1B 
4600:4D 
4608:00 


A8 


2C 


40 


Pom's n° 31 








4610:15 1E 1lE 1E 2D 2D 04 00 0C08:0B DO 03 CE 06 OB CE 05 0E28:0B 91 06 AD 83 CO AD 83 





4618:45 23 B5 12 27 1F 5E 67 0C10:0B 60 AD 00 CO 10 03 68 0E30:C0 AD OA 0B 91 06 88 DO 
4620:40 23 27 00 31 76 DF 63 0C18:68 60 20 4E OC C9 00 90 0E38:DD E6 07 CA DO D6 AD 81 
4628:0C OC 20 24 00 2A 28 30 0C20:2A C9 CO BO 26 AE 05 0B 0E40:C0 60 A9 00 85 08 85 06 
4630:36 DF 40 E3 36 36 36 04 0C28:AC 06 OB FO 07 EO 18 BO 0E48:A9 20 85 07 A9 40 85 09 
4638:00 1B A8 36 1E 2D 45 2B 0C30:1A 4C 38 OC EO 00 90 13 0E50:A2 20 4C DB OD A9 00 85 
4640:20 1C 04 00 D8 36 AE 45 0C38:20 13 F4 A4 E5 B1l 26 29 0E58:08 85 06 A9 40 85 07 A9 
4648:AB 45 23 24 04 00 28 F5 0C40:7F 25 30 FO 02 A9 O1 4D 0E60:20 85 09 A2 20 AO 00 B1 
4650:36 FE 24 24 27 00 27 45 0C48:09 0B 60 A9 01 60 AD OA 0E68:08 8D OF 0B B1 06 91 08 
4658:2B 38 3F 96 09 F1 1E 2E 0C50:0B FO 07 A9 BF 38 ED 07 0E70:AD OF O0B 91 06 88 DO EF 
4660:25 00 D2 2D 45 23 1C 3F 0C58:0B 60 AD 07 0B 60 AD 02 0E78:E6 07 E6 09 CA DO E6 60 
4668:1E 36 36 26 00 36 3E 1C 0C60:0B DO 03 4C E2 OC C9 01 0E80:A9 00 85 08 85 06 A9 40 
4670:24 45 2B 2D 04 00 3F 36 0C68:F0 1F C9 02 FO 21 C9 03 0E88:85 07 A9 20 85 09 A2 20 
4678:0E 2D 20 24 E4 F7 26 00 0C70:F0 23 C9 04 FO 2A C9 05 0E90:A0 00 B1 08 91 06 88 DO 
4680:2D F8 13 1E 0D 36 27 00 0C78:F0 31 C9 06 FO 4E C9 07 0E98:F9 E6 07 E6 09 CA DO FO 
4688:E3 OD AD 36 36 DF 40 23 0C80:D0 06 20 AB OC 4C CC OC 0EA0:60 20 55 0E 8D 55 CO EA 
4690:04 00 38 1E 2E 36 2F 09 0C88:60 20 EF OC FO 54 60 20 0OEA8:EA 8D 54 CO EA EA AD 00 
4698:E5 2C E4 04 00 2C 28 F8 0C90:05 OD FO 4E 60 20 05 OD 0EB0:CO 10 F1 C9 8D DO 07 20 
46A0:1B 0E 96 1E 4D El 04 00 0C98:D0 05 20 EF OC FO 43 60 0EB8:55 O0E 8D 10 CO 60 C9 A0 
46A8:34 32 36 26 08 45 23 FC O0CA0:20 05 OD FO 3D 20 EF OC 0ECO:DO 09 20 42 0E 8D 10 CO 
46B0:1B 36 15 04 00 60 OC 3F OCA8:F0 38 60 20 05 OD 8D 0F 0EC8:4C A4 0E C9 8B DO 09 20 
46B8:16 1A 1E 2D AD 1E 3F 04 OCB0:0B 20 EF 0C AE 01 0B E8 0EDO:CC 11 8D 10 CO 4C A4 0E 
46C0: 00 OCB8:CD OF 0B FO 25 CE OF 0B 0ED8:C9 8A DO 09 20 7A 12 8D 
OCCO:D0 06 AC 03 0B 8C OF 0B 0EE0:10 CO 4C A4 0E C9 95 DO 

OCC8:CA DO ED 60 20 05 OD 8D 0EE8:03 20 44 10 C9 88 DO 03 

- - : O0CDO:0F O0B AD 03 O0B 18 69 01 0EFO0:20 53 OF 8D 10 CO 4C A4 
Récapitulation OCD8:38 ED OF 0B 8D OF 0B 4C OEF8:0E 8D 10 CO AD 00 CO 10 
SCHEM e OCEO:B1l OC AE 05 OB AC 06 0B OF00:FB C9 8B DO 06 20 CC 11 
= OCE8:20 4E OC 20 57 F4 60 AD 0F08:4C F9 OE C9 8A DO 06 20 

O0CF0:06 0B DO 06 AD 05 0B 4C 0F10:7A 12 4C F9 O0E C9 95 DO 

Après avoir saisi ce code sous OCF8:08 O0D A9 FF 20 08 OD 6D 0F18:06 20 44 10 4C F9 0E C9 
moniteur, vous le sauvegarderez 0D00:05 0B 4C 08 OD 20 4E 0C 0F20:88 DO 06 20 53 OF 4C F3 
par : 0D08:38 4C OF O0D ED 03 0B CD 0F28:0E C9 D7 DO 06 20 FE OD 
BSAVE SOURIS.C, A$BO1,L$S9CE 0D10:03 0B FO 09 BO F6 CD 01 0F30:4C F9 0E 8D 10 CO 60 EO 
0D18:0B BO 02 A2 00 60 A9 00 0F38:00 20 00 ECO 80 20 80 EO 

0B01:EA EA EA EA EA EA EA 0D20:85 3C 85 42 A9 F8 85 3E 0F40:28 20 28 EO A8 20 A8 EO 
0B08:EA EA EA EA EA EA EA EA 0D28:60 20 1E OD A9 40 85 43 0F48:50 20 50 EO DO 20 DO DO 
OB10:EA EA 4C 55 O0E 4C FE O0D 0D30:AD 10 O0B 85 3D 18 69 1F 0F50:00 DO 00 A2 00 20 2F 11 
0B18:4C 3F OD 4C 54 OD 4C A4 0D38:85 3F 18 20 11 C3 60 20 0F58:20 AA OF A2 04 20 2F 11 
OB20:0D 4C D8 OD 4C 2C 14 4C 0D40:1E 0D A9 20 85 3D A9 3F 0F60:20 AA OF A2 08 20 2F 11 
0B28:F9 0E 4C Al 0E 4C 80 CE 0D48:85 3F AD 10 0B 85 43 38 0F68:20 AA OF A2 OC 20 2F 11 
0B30:4C 42 0E 20 F1 0B 20 FD 0D50:20 11 C3 60 A9 20 8D 10 0F70:20 AA OF A2 10 20 2F 11 
0B38:0B 20 12 OC DO 03 4C 33 0D58:0B 20 29 OD A9 01 8D 11 0F78:20 AA OF A2 14 20 2F 11 
0B40:0B 20 06 OC 20 F1 OB 20 0D60:0B 8D 55 CO 20 92 OD AD 0F80:20 AA OF AD 62 CO 10 01 
0B48:06 OC 20 12 0C DO 03 4C 0D68:04 0B C9 02 90 F3 EE 11 0F88:60 A2 18 20 2F 11 20 F6 
0B50:44 0B 20 FD 0B AD 05 0B 0D70:0B AD 11 O0B 20 8B OD 8D 0F90:0F A5 06 18 69 28 90 OA 
0B58:8D 0B 0B AD 06 0B 8D OC 0D78:10 0B 20 29 OD 20 92 OD 0F98:E6 07 A6 07 EO DF FO 09 
0B60:0B 20 5E OC 20 FD 0B 20 OD80:AD 11 0B CD 04 0B 90 Eë OFA0:E6 09 85 06 85 08 4C 8E 
0B68:12 OC DO 27 AD O2 0B DO 0D88:4C 54 OD A2 05 OA CA DO O0FA8:0F 60 A2 20 A0 00 B1l 06 
0B70:1F CE 07 0B 20 12 OC DO 0D90:FC 60 AD 00 CO 10 FB C9 0FBO:8D 0F 0B C8 B1l 06 88 91 
0B78:14 20 FD O0B 20 12 OC DO 0D98:8D DO 05 68 68 8D 54 CO OFB8:06 C8 CO 27 90 F5 AD 62 
0B80:09 20 06 OC EE 07 OB 4C ODAO:8D 10 CO 60 A9 00 85 08 OFCO:CO 10 08 AD OF 0B 91 06 
0B88:33 OB 20 06 OC EE 07 0B 0DA8:A9 20 85 09 A2 20 AO 00 OFC8:4C EE 0F AD 83 CO AD 83 
0B90:4C 61 0B EE 07 0B AD 0B O0DBO:B1 08 49 FF 91 08 88 DO OFDO:CO AO 00 B1 08 AO 27 91 
0B98:0B 8D 05 0B AD OC O0B 8D ODB8:F7 E6 07 E6 09 CA DO EE 0FD8:06 A0 00 C8 B1 08 88 91 
0BA0:06 0B AD OA O0B DO 23 AD ODCO:60 AD 83 CO AD 83 CO A9 0FE0:08 C8 CO 27 90 F5 AD OF 
OBA8:07 0B CD 08 OB 90 24 A9 ODC8:00 85 08 85 06 A9 EO 85 OFE8:0B 91 08 AD 81 CO E6 07 
OBBO:BF 38 ED 07 0B 8D 07 0B 0DD0:07 A9 20 85 09 A2 20 60 OFFO:E6 09 CA DO B7 60 AD 8B 
OBB8:8D 0A 0B AD OD 0B 8D 05 0DD8:20 C1 OD AO 00 B1l 08 48 OFF8:C0 AD 8B CO AO 00 B1 06 
O0BCO:0B AD 0E 0B 8D 06 OB 4C ODEO:AD 09 OB FO 06 68 31 06 1000:8D 0F 0B C8 B1 06 88 91 
O0BC8:33 0OB 20 4E OC CD 08 0B ODE8:4C EE OD 68 11 06 91 08 1008:06 C8 CO 27 90 F5 AD 83 
0BDO:BO 01 60 20 12 OC FO 0B 0DF0:88 DO EA E6 07 E6 09 CA 1010:C0 AD 83 CO AO 00 B1 08 
0BD8:20 FD 0B 20 12 OC DO F8 ODF8:D0 El AD 81 CO 60 20 C1 1018:8D OA 0B AD 8B CO AD 8B 
OBE0:4C EE 0B 20 06 OC 20 12 0E00:0D 20 65 0E A9 DO 85 07 1020:C0 AD 0A 0B A0 27 91 06 
OBE8:0C FO F8 20 FD 0B 4C 55 0E08:A9 00 85 06 A2 10 AD 83 1028:A0 00 AD 83 CO AD 83 CO 
OBFO0:0B CE 07 OB 20 12 OC FO 0E10:C0 AD 83 CO AO 00 B1 06 1030:C8 B1 08 88 91 08 C8 CO 
OBF8:F8 EE 07 OB 60 EE 05 0B 0E18:8D OF O0B AD 8B CO AD 8B 1038:27 90 F5 AD OF OB 91 08 
0C00:D0 03 EE 06 OB 60 AD 05 0E20:C0 B1 06 8D 0A 0B AD OF 1040:AD 81 CO 60 A2 00 20 2F 





Pom's n° 31 








1048:11 

1050:11 

1058:11 

1060:11 

1068:11 

1070:11 

1078:01 

1080:E5 
1088:0A 
1090:09 
1098:7F 
10A0:10 
10A8:0B 
10B0:83 
10B8:0B 
10C0:D0 
10C8:91 

10D0:B1 

10D8:AD 
10E0:09 
10E8:AD 
10F0:0F 
10F8:88 
1100:C0 
1108:AD 
1110:0B 
1118:AD 
1120:C8 
1128:0B 
1130:37 
1138:08 
1140:0F 
1148:1F 
1150:1F 
1158:1F 
1160:DE 
1168:E0 
1170:E0 
1178:E0 
1180:E3 
1188:40 
1130:40 
1198:40 
11A0:D0 
11A8:E3 
11B0:E3 
11B8:E3 
11C0:E0 
11C8:20 
11D0:13 
11D8:13 
11E0:13 
11E8:13 
11F0:13 
11F8:13 
1200:09 
1208:13 
1210:A2 
1218:A2 
1220:A2 
1228:AD 
1230:20 
1238:20 
1240:20 
1248:20 
1250:20 
1258:20 
1260:20 


A9 


A0 


A8 
DO 


28 


A8 
80 


20 
20 
20 
20 
20 
20 
A2 
60 
18 
1C 
20 
83 
28 
28 
28 
28 
28 
28 
28 


AD 





20 


07 


F7 


Récapitulation 


GRAV.C 


Après avoir saisi ce code sous 


moniteur, 


par : 


BSAVE GRAV.C, A$801,L$25F 


0801:A5 
0808:93 
0810:6E 
0818:F0 
0820:6A 
0828:90 
0830:84 
0838:03 
0840:20 
0848:A9 
0850:81 
0858:31 
0860:09 
0868:20 
0870:1B 
0878:D0 
0880:07 
0888:81 
0890:30 
0838:A9 
08A0:81 
08A8 : 81 
08B0:30 
08B8:E6 
08C0:A39 
08C8:81 
08D0:85 
08D8:A9 
08E0:B0 
08E8:B1 
08F0:CA 
08F8:01 
0900:639 
0908:D0 
0910:18 
0918:14 
0920:02 
0928:E0 
0930:1B 
0938:AD 
0940:FF 
0948:A5 
0950:06 
0958:A9 
0960:81 
0968:0A 
0970:09 
0978:20 


CE 
03 
20 
03 


20 
A9 
81 
4c 
29 
A9 
84 
1B 
09 


A4 


A0 


ED 
1B 
09 
3C 
co 
40 
09 
20 
A9 
81 
54 
09 
20 
A9 
DO 
07 
98 
47 
09 
81 
BO 
38 
09 
19 
81 
68 
85 
06 
DO 


FD 
20 
A5 
OA 
85 
85 
A9 
81 
00 
09 
20 
A9 
81 
FF 
oc 
BO 
48 
20 
24 
09 
OA 
20 
A9 


60 
81 
07 
A5 
07 
1B 
0D 
09 
20 
A3 
81 
36 
03 
85 
8A 
62 
A9 
81 
07 
A9 
A9 
81 
01 
28 
A9 
9D 
48 
08 
E8 


A9 


Pom's n° 31 


20 
03 
22 
07 
A9 


A5 


vous le sauvegarderez 


9380: 
0988: 
0990: 
9998: 
0340: 
0328: 
09B0: 
09B8: 
09C0: 
09C8: 
09D0: 
09D8: 
09E0: 
09E8: 
09F0: 
09F8: 
0A00: 
0A08: 
0A10: 
0A18:D 
0A20: 
0A28: 
0A30: 
0A38: 
0A40: 
0A48: 


0A50 


0258: 





Récapitulation 
CHARGE.OBJ 


Après avoir saisi 


FO 


:A5 


24 
80 
F3 
85 
29 


>) B1 


B1 
B1 
A0 
85 
1B 
31 
A9 
81 
20 
DO 
09 
FB 
18 
10 
A9 
60 
49 
FO 
92 
FF 
FE 
00 


moniteur, 
par : 


BSAVE CHARGE.OBJ, A$9000, L$22B 


co 
60 


FB 


A6 
B9 
A5 
A9 
09 
C9 
cg 
cg 
B1 
20 
FA 
0F 
20 
60 
17 
C8 
81 
AD 
0B 
B1 
85 


02, 


29 
60 
FF 
13 
01 

FF 


ce code sous 
vous le sauvegarderez 


FA 


FA 
29 
CA 
1B 
1C 
3D 
35 
02 
FA 
A0 
Bi 
20 
A9 
B1 
1B 
C3 
A3 
ca 
cg 
48 
92 
AD 
F7 
85 
B1 
09 
A5 
E5 


00 
80 
OA 
A5 
A0 
A9 
A0 
DO 
A5 
0F 
1B 
81 

0D 
1B 
C9 

FF 
91 

co 
98 
DO 
85 
F1 

68 
FE 
FE 
18 
FF 
60 


90E0:A9 11 8D EC B7 20 E6 9C 
90E8:CE ED B7 FO 46 20 CB 9C 
90F0:A0 EB 8C AE AA AD AE AA 
90F8:18 69 23 A8 8D AE AA C9 
9100:03 FO E5 A2 00 B9 BB B3 
9108:F0 29 DD 75 AA DO E6 C8 
9110:E8 EO 1E DO FO B9 9C B3 
9118:29 04 DO 04 A2 OD DO 15 
9120:AC AE AA B9 B9 B3 8D ED 
9128:B7 B9 B8 B3 30 C7? 8D EC vous le sauvegarderez 
9130:B?7 DO 0E A2 06 8E 5C AA par : 

9138:20 F5 9C 20 93 FE 4C DS BSAVE SOURIS.C, A$301,L$A2 
9140:A6 8D AF AA 20 CB 9C A2 


Récapitulation 
FONC.C 


Après avoir saisi ce 
code sous moniteur, 


9148:0C A5 1E A4 1F 20 EE 9C 0301:A9 FO 85 06 4C OC 03 
9150:AD AF AA FO 03 20 EA 9C 0308:A9 O0B 85 06 A9 60 85 07 
9158:20 BB 9C AD AF AA FO 40 0310:A5 B8 48 A5 B9 48 20 2C 
9160:2C BO AA 30 OA A5 50 8D 0318:D5 AE 00 02 FO 19 A2 00 
9168:BB B4 A5 51 8D BC B4 38 0320:86 13 20 6D D5 A9 B2 91 
9170:AD BB B4 E9 04 85 1E 8D 0328:06 88 A9 3A 91 06 88 B9 
5178:F0 B7 AD BC B4 E9 00 85 0330:FC 01 91 06 88 DO F8 68 
9180:1F 8D F1 B7 A9 04 8D DA 0338:85 B9 68 85 B8 60 AD 83 
9188:9C 18 6D BD B4 8D AB AA 0340:C0 AD 83 CO A9 00 85 08 
9190:A9 00 8D E2 9C 8D AF AA 0348:85 06 A9 E0 85 07 A9 20 
9198:AD C9 B3 FO 22 20 D9 9C 0350:85 09 A2 20 60 20 3E 03 
91A0:AE AE AA EE F1 B7 E6 1F 0358:A0 00 B1 08 11 06 91 08 
91A8:E8 EO0 FE B0 1D BD BD B3 0360:88 DO F7 E6 07 E6 09 CA 
91B0:D9 A6 20 EA 9C 20 BB 9C 0368:D0 EE AD 81 CO 60 A9 00 
91B8:A9 00 85 48 8D DA 9C AD 0370:85 08 85 06 A9 40 85 07 
91C0:AB AA 8D E2 9C 20 D9 9C 0378:A9 20 85 09 A2 20 AO CO 
91C8:F0 56 AD BC B3 FO E3 20 0380:B1 08 8D 00 03 B1 06 91 
91D0:BB 9C AD BD B3 8D ED B7 0388:08 AD 00 03 91 06 88 DO 
91D8:E6 1F 20 E6 9C AD BC B3 0390:EF E6 07 E6 09 CA DO E6 
91E0:8D EC B7 4C 19 9C BD BB 0398:60 20 3E 03 20 7E 03 AD 
91E8:B3 8D EC B7 E8 BD BB B3 03A0:81 CO 60 


91F0:8D ED B7 8E AE AA A9 B7 
91F8:A0 E8 20 B5 B7 90 11 A2 
9200:08 4C OA 9C A0 00 B9 BB 
9208:B4 91 1E C8 CO 00 DO F6 
9210:60 A0 B3 DO 02 A0 B4 A9 
9218:BB 8D FO B7 8C F1 B7 60 


Récapitulation 
DHEL.C 





















9000:A9 00 8D F6 03 A9 9B 8D 9220:AD AC AA 85 1E AD AD AA 

9008:F7 03 A9 4C 8D F5 03 A2 9228:85 1F 60 

9010:00 BD 2B 90 9D 00 9B E8 Après avoir saisi ce 

9018:D0 F7 BD 2B 91 9D 00 9C code sous moniteur, 

9020:E8 DO F7 A9 9A 8D O1 SD , A ; vous le sauvegarderez 
9028:4C D4 A7 A5 1E 8D AC AA Récapitulation par : 

9030:A5 1F 8D AD AA AO 00 8C ERREUR BSAVE HEL.C, A$300,L$36 
9038:EB B7 20 B7 00 C9 22 DO 

9040:23 A9 06 85 C1 20 B1 00 0300:A9 DO 85 09 A9 00 85 08 
9048:C9 22 FO OC 09 80 99 75 Après avoir saisi ce code sous tes be le die Die Sie Dress 
9050:AA C8 C0 1E 90 EF BO 34 moniteur, vous le sauvegarderez CITÉE A CT SNS DOS RARE 
9058:A9 EF 85 C1 20 B1 00 CO par : 0318:00 85 08 A2 30 AD 81 CO 
9060:00 DO 4C 60 A5 B8 48 A5 BSAVE ERREUR, A$3A3,L10 0320:AD 81 CO 20 27 03 6D A9 
9068:B9 48 20 7B DD 24 11 30 0328:00 A0 00 91 08 88 DO FB 
9070:08 A2 A3 20 F5 9C 4C 12 03A3:68 A8 68 A6 DF DER RER RR PAPE 
9078:D4 68 85 B9 68 85 B8 20 03A8:9A 48 98 48 60 

9080:E3 DF 85 1E 84 1F A0 00 

SORCERITIE DIE DAS RE AR A La qualité de ce programme et son volume le destinaient à être 
ue L = … . … ” vendu par Pom's en “produits édités à part”. 

Oo GO ei deu TS da 20 25 Nous avons préféré Vous faire profiter de ses nombreuses 
90A8:AA C8 CC AB AA DO F3 A9 possibilités en l'insérant dans ces pages : la place nous 
90B0:A0 99 75 AA C8 CO 1E DO manquant pour les sources, seuls les fichiers nécessaires au 
90B8:F8 8D BO AA 20 F5 9C 20 fonctionnement sont listés ici. 

90C0:B7 00 FO 12 20 BE DE 20 Les lecteurs qui souhaitent approfondir la programmation ou 
de . : s : ke : Fe adapter le logiciel à leurs besoins trouveront cette fois les 
One ab Fe En a -JAUEE nb 07 sources sur la disquette d'accompagnement. 
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à ui n'a jamais eu de 
Fi problème à relire 
un programme 
» COMplexe, constitué 
de nombreuses sous- 
routines et donc truffé de 
GOTOS et GOSUBS, voire de 
RUNs ? En effet, si beaucoup 
de Basics autorisent les sauts 
vers des routines précédées 
d'un nom, d'une étiquette, 
l'Applesoft n'accepte que les 
sauts spécifiés par numéros 
de ligne, d'où des listings 
souvent très hermétiques. 


Le but de cet article est donc de 
modifier les commandes GcorTo, 
GOSUB et RUN par l'intermédiaire 
de l'ampersand (&), afin d'obtenir 
une plus grande facilité pour 
réaliser et maintenir les 
programmes. 


Fonctionnement 


Bien que le listing soit 
entièrement commenté, il est 
nécessaire de présenter certains 
sous-programmes de la ROM 
Applesoft : 


CHRGET : positionne TXTPTR 
sur le caractère suivant, puis va le 
lire. Lorsque c'est un espace, il 
recommence. On peut donc faire 
précéder le début du REM d'autant 
de blancs que l'on voudra, sans 
pour autant devoir les remettre 
dans l'étiquette qui suit le GOTo 
ou le cosuB. D'autre part, 
CHRGET signale les fins 
d'instruction et donc aussi les 
fins de ligne de programme en 
mettant la retenue (carry) à 1. 
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DATA : se place à la fin de 
l'instruction en cours. Si on fait 
un JMP, il permet d'exécuter la 
prochaine instruction. Ainsi, on 
obtient coucou dans l'exemple 


suivant avec un saut & GOTO 
"TRUC : 
100 PRINT "SALUT": REM TRU 


C 
110 PRINT "COUCOU" 


GOTO : va tout d'abord lire le 
numéro de ligne pointé par 
TXTPTR, le range en LINNUM, puis 
continue par GOTOBIS, qui 
recherche la ligne stockée en 
LINNUM. GOGO se branche donc 
automatiquement en GOTOBIS, 
après avoir stocké en LINNUM le 
numéro de la ligne suivant le REM 
voulu. 


GOSUB : place d'abord sur la 
pile du 6502 la valeur de TXTPTR 
(2 octets) puis de CURLIN (2 
octets) qui est le numéro de la 
ligne en cours d'exécution et 
enfin le type de commande ($B0 
pour GOSUB). Puis cosuB appelle 
GoTo et exécute la ligne par 
NEWSTT ($D7D2). Le RETURN 
reprendra les informations de la 
pile pour savoir où il faut 
reprendre le programme. POP les 
supprimera tout simplement, sans 
les utiliser. 


Utilisation 


Il suffit de modifier légèrement 
vos lignes de façon à répondre à 
la syntaxe suivante : 


10 & GOSUB "ROUTINE" 
20 & GOTO "FIN 

100 REM ROUTINE 

110 .. 





Les sauts asic 


Patrice Neveu 


120 RETURN 
500 REM FIN DU PROGRAMME 


Attention, après GOTO, GOSUB OÙ 
RUN, il est indispensable 
d'inscrire les étiquettes à 
l'intérieur des guillemets (ou, au 
minimum, de les faire précéder 
d'un guillemet) car l'Applesoft le 
décomposerait (par exemple CAT 
en C AT, AT étant un mot-Clé). 
Toutefois, la routine offre de la 
souplesse à l'utilisation puisqu'il 
est possible d'appeler un : 

REM Routine d'ouverture 

par un: 

& GOSUB Routine 

ou même par un : 

& GOSUB Rout. 


Le retour d'un sous-programme 
se fait par le RETURN Courant, ce 
qui permet aussi l'application de 
POP. 

Bien entendu, ce qui est valable 
pour la commande GosuB l'est 
également pour les &oros et les 
RUNSs. 


Ces trois commandes sont aussi 
utilisables depuis le clavier vers le 
programme directement. 


Dans cas où la syntaxe ne serait 
pas respectée peut s'afficher l'un 
des message suivant : 


UNDEF'D STATEMENT ERROR 
(l'ampersand est omis) 


IL FAUT UN GOTO, GOSUB ou 
RUN (après l'ampersand) 


IL FAUT UN GUILLEMET (avant 
le label appelé) 


LE LABEL N'EXISTE PAS 
(aucun REM ne commence par 
le label) 


Enfin, le programme source 
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T.GOGO se trouve sur la disquette 


Pom’s au format TEXT, 
assemblable directement par 
Merlin/Big Mac. 


Pour conclure ce mode d'emploi, 
deux remarques : 


Afin d'éviter des catastrophes 
avec le Compacteur de Sylvie 
Gallet, (Pom's 22), il est 
nécessaire de supprimer les 
lignes 287 et 288. En effet, le 
Compacteur détruit tout ce qui 
suit le REM, ce qui nuirait 


naturellement au bon fonction- 
nement de GOGO ; 


+ GOGO est opérationnel aussi 
bien sous DOS 3.3 que sous 


ProDOS. G 





TEMP = $D7 
Programme GOGO.DEMO pat = ser 
BUFFER = $0280 
10 PRINT CHR$ (4) "BRUN GOGO EE 0 
1000 REM  INITIALISATION ERROR = $033F 
ERRORO = $035D 
1010 TEXT : NORMAL : HOME ERROR2 =  $0375 
1020 INVERSE : PRINT " DES SAUTS À GOGO, my = so 
PROGRAMME DE DEMO. NORMAL : POKE  TxTPrR2 = $039D 
34 2 COMMANDE = $039F 
1 PLACE = $03A0 
1030 VTAB 10 INDEX = S03A1 
BASIC - $03D0 
1040 PRINT " l) LISTING DU PROGRAMME ANPREV ES SE 
1050 PRINT : PRINT " 2) CATALOGUE DU DISK 
GETBUFR = S$BEFS 
1060 PRINT : PRINT " 3) QUITTER BITMAP =  $BF58 
2000 REM CHOIX DU MENU Se Ge 
2010 GET A$:R = VAL (A$): IF R = O THEN newsrr = 50702 
M GOTOBIS = $D955 
& GOTO "CHOIX it ue 
2020 & R GOSUB "LIST", "CAT", "QUIT" STROUT =  SDB3A 
= 7. 
2025 GET R$ D “a dus 
2030 & RUN "INIT TEXT = SFB39 
HOME = SFC58 
3000 REM LISTING 
3010 HOME : LIST : RETURN a 
4000 REM CATALOG GOSUB =  $B0 
4010 HOME : PRINT AE 
4020 IF PEEK (48896) = 76 THEN PRINT C 


HR$ (4)"CAT": RETURN 


4030 PRINT CHR$ (4)"CATALOG": RETURN 
5000 REM QUIT 
5010 END 





Source T.GOGO 


Assembleur Big Mac 


En format TEXT sur la disquette Pom's pour récupération par tout assembleur 


Cette routine 


+ Stockage temporaire 
+ Pointeur dans la table des pages à protéger 


+ Buffer pour copier l'instruction après &. 
+ Adresse de CHRGETO relogée 

+ Message d'erreur lors du relogement 
+ Message d'erreur de commande 

+ Message de manque de guillemet 

: Message de label inconnu 

: Tokens de GOTO GOSUB RUN 

+ Longueur de la commande & 

+ Sauvegarde de TXTPTR pour les GOSUB 
+ GOTO GOSUB où RUN 

+ Emplacement du label dans la ligne 


+ Retour au Basic. 
: Vecteur de 1'£. 


+ Pour déplacer les buffers. 
: Bitmap en ProDOS 


: Mise à zero de la pile et des variables. 

+ Execute une nouvelle instruction Basic. 

: Partie de GOTO ($D93E): pas de LINGET (S$DAOC) 
; Met TXTPTR à la fin de l'instruction Basic. 

: Routine de sortie de chaine de caractères. 

: LINNUM (entier à 2 octets) <- FAC 

# FAC <= (Y,A)} 


: Token de GOTO 
;: Token de RUN 
: Token de GOSUB 
;: Token de REM 


LEP EEE ES | 


s'adapte À l'environnement qu'elle trouve: 


Si le Système d'Exploitation du Disque est le DOS 3.3, elle 


reste en $9400, là où elle a été chargée. 


protège ces pages. 


Dans les deux cas, la page 3 est occupée par des routines 
des tables et des messages pour des problèmes de 
relogeabilité. Elle est également protégée. 


* * 
* * 
* * 
* * 
+ * 
* Si le SED est le ProDOS elle abaisse les buffers de deux F 
* pages et s'installe entre eux et le Basic.System, puis * 
* * 
* * 
* * 
* * 
* + 


LEP 


+ C'est le vecteur JMP du MLI 


ORG 58000 * On se trouve sous ProDOS ? 
*XXXXXXXXXKXKXKXXKXKXAKAXKXXKXKAXK XX KKAXAXAXKKKAXKAEXKKKKXENAXRAXÉ DEBUT LDA $BFO00 
Commandes disponibles CMP £$4C 
BEQ GBUFF 


6GOTO "label" 
contient le label. 
£GOSUB "label" 


le label. 
&RUN “label" 


situe le label. 


& VR GOTO "“1l","12" 
£& VR GOSUB "1Il","12" 


RSR 8 


: Saute après la ligne REM qui 


: Va au sous-programme commençant 
aprés la ligne REM qui contient 


: Execute le programme 14 où se 


: Saute au label d'ordre VR 
: Va au sous-programme d'ordre VR 


JMP  AMPERSET 


GBUFF LDA £3 
JSR GETBUFR 
BCC  MOVER 


RO 


& VR RUN “ii, 712" : Run indexé d'ordre VR ERELOC JSR TEXT 
JSR HOME 
*XXXXXXXXXXXXKXXXKXXXKXXXXXAKXAXKKXKXKXXKXKXXKAXAXAXAMAAKNAANNAX LDA £<RELOCER 
LDY £>RELOCER 
JSR STROUT 
LINNUM = 550 : Numéro de la ligne où l'on va. #AIT JM HAIT 
TXTTAB = $67 : Adresse du début du texte Basic. 
LOMEM = $69 : Adresse de la fin du texte Basic. MOVER EQU * 
ARYTAB = $6B + Fin des variables simples STA  PROGADR+2 
HIMEM = $73 * Plus haute adresse disponible, buffer ProDOS STA PROTECT+1 
CURLIN = 575 : Numéro de la ligne en cours d'execution. STA AMPINIT+#I 
LASTVAR = $81 + Nom de la variable à rechercher (index) TAX 
VARPNT = $83 ‘ Adresse de la valeur de la variable (index) INX 
CHRGET = $B1 + Sous-routine de prise de caractère, STX PROTECT+2 
CHRGOT = $87 + Prend le caractère actuel. INX 
TXTPTR = $B8 + Pointe sur le caractère 4 prendre. STX PROTECT43 
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* On se place entre le Basic.System et les buffers de Pronos. 
: Descend les buffers du DOS de 3 pages 
: Pour qu'on puisse se protéger 


; Le réserve de place s'est faite sans pb 


* Erreur lors d'un des déplacement 


: Prépare le déménagement de la routine 
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LODA £0 
STA  PROGADR+#1 


MOVE LDA GOGO : Chargement de l'octet pour le 
PROGADR STA SFFFF : remettre à l'endroit désigné par ProDOS 
INC  MOVE+1 ; Passe au prochain octet 


MOVEO LDA  MOVE+2 : Vérifie si on a terminé 


BNE  MOVE3 
MOVE1 INC  PROGADR+#i 

BNE MOVE 

INC  PROGADR+2 

BNE MOVE 
MOVE3 EQU * 


* On protège ia page $03 et celles du programme relogé. 


LDA £3 ; 11 y a 4 pages à protéger 
STA  PGNUM + on se sert d'un compteur 
NXTPG LDY  PGNUM + Quel est le numéro de la page 4 protéger ? 
LDA PROTECT,Y ; Il est dans la table 
PHA ; Sauvegarde temporaire 
LSR : On divise par huit pour déterminer l'octet 
LSR ; Où se trouve le bit de la page recherchée 
LSR 
TAX ;: Dans X pour aller dans la table du ProDOS 
LDA BITMAP,X + { page 16 du pom's 22 ) 
STA TEMP :« On le sauve pour usage ultérieur 
PLA : Reprise du n° de page 
AND £7 : Dont on ne garde que le bit de position 
TAY ; Qui sert 4 chercher le masque 
LDA BITMASK,Y ; Pour mettre à 1 le bit de la page occupée 
BIT TEMP ; Verifie se c'est déja eccupé 
BNE ERELOC 
ORA TEMP 
STA BITMAP,X + Puis on met à jour la RitMap 
DEC PGNUM ; Et on passe à la prochaine page 
BPL NXTPG 


* Déplacement d'une sous-routine du programme pour rester 
* relogeable en environnement ProDOS 


LDY £144 : Nombre d'octets 4 mettre en $0300 
MOVERTN LDA CHRGETO,Y ; Ce sont essentiellement des tables 

STA CHRGETI,Y : et des messages, plus deux routines 

DEY + appelées par JSR et donc non-relogeables. 


CPY £SFF 
BNE  MOVERTN 


* Initialise ie vecteur ampersand sous ProDOS 


AMPINIT LOA £SFF ; L'ampersand ira au début du buffer donné 
LDY £0 +“ par ProDOS 
STA AMPERV+2 
STY AMPERV+I 
RTS 


* initialise le vecteur ampersand sous DOS 3.3 


AMPERSET LOA £>GOGO ; Maintenant, 1'£ ira directement 4 GOtoGOsub. 
LDY £<GOGO 
STA AMPERV+2 
STY AMPERV+1 


LDA £>DEBUT : Fixe HIMEM sous DOS 3.3 pour éviter les 
LOY £<DEBUT : variables intempéstives 

STA HIMEMr1 

STY HIMEM 


* Déplacement d'une sous-routine du programme en DOS 3.3 


LDY £144 ; Nombre d'octets à mettre en $0300 
MOVERTNI LDA CHRGETU,Y ; Ce sont essentiellement des tables 

STA CHRGETI,Y ; et des messages, plus deux routines 

DEY ; appelées par JSR et donc nen-relogeables. 

CPY £SFF 

BNE  MOVERTNI 


RTS +: Retour au Basic. 





L vérification de la syntaxe des commandes. 
#_=-=2.51emtosmmsemfessrerm=sLésustes 
GOGO EQU * 
LOX £l 
JSR CHRGOT : Necessaire pour prendre le ler caractère 
STA BUFFER : suivant l'£. On stocke le résultat en BUFFER. 
GETCMD JSR CHRGET : Boucle pour lire et stocker la suite de la 
BEQ IDENTIFY : commande. A=0 si fin d'instruction. 


STA BUFFER,X 
INX 
BNE GETCMD 


IDENTIFY EQU "* ;: Pour identifier la commande envoyée. 
DEX : On décremente la longueur de la commande de & 
STX LENGTH ; puis on la range pour usage ultérieur. 
LDX £2 + Il y a trois commandes possibles. On commence 


IDENTIFYI LDA CMD,X 
CMP  BUFFER 
BNE IDENTIFY2 


+ par la dernière. 
; Et on compare au token rangé dans le buffer. 


JMP LEGAL : S1 c'est autorisé, d'accord... 
IDENTIFYZ EQU * 
DEX : Sinon, passe à la prochaine ! 


BPL IDENTIFYI ; Et 11 n'y en a que 3... 


LDX £0 : On a peut etre un saut indexé 
ISINDEX LDA BUFFER,X ; Alors sachant que la variable est au début, 
CMP  £GOTO ; on recherche le GOTO,GOSUB, RUN 
BEQ YAINDEX ; C'est bien un saut indexé 
CMP  £GOSUB 
BEQ YAINDEX 


CMP  £RUN 

BEQ YAINDEX 

INX + Recherche d'un saut quelconque sur toute 
CPX LENGTH + la longueur de la ligne 


BNE ISINDEX 


LDY £>ERROR ; Si c'est l'inconnu, alors signale l'erreur 
LDA  £<ERROR + de commande. 

JSR STROUT 

JMP  BASIZ + Et retourne au basic. 


* Lecture de l'index 


YAINDEX EQU * 
PHA 


LDY £0 ; Lecture de la lére lettre de la variable 
LDA BUFFER,Y 
STA LASTVAR 
CPX £1 : 11 y a une ou plusieur lettre dans le nom ? 
BNE SNDLET : Va prendre ia 2nd 
LDA £9 
STA LASTVAR+I 
BEQ SRCHVAR 
SNDLET EQU * 


LDA BUFFER,Y 

STA LASTVAR+I 
SRCHVAR EQU * 

LDA LOMEM 

LDX LOMEM+1 

STA VARPNT 

STX VARPNT+#I 


; On se place au début de la zone des 
: variables simples afin de rechercher 
+: notre index 


CMPVAR EQU ” 
LDY £0 
LDA  (VARPNT),Y 
CMP  LASTVAR 


; Et on compare la variable étudiée avec ceile 
; qu'on a trouvé aprés l'ampersand 


BNE NXTVAR 
INC VARPNT 


BNE SRCHVARI 
INC VARPNT+1 
SRCHVARI EQU * 


LDA  (VARPNT),Y 
CMP  LASTVAR+1 
BEQ VARFND 


PLP 
NXTVAR EQU * 
LDA VARPNT 
ADC £6 ; On rajoute 6 ou ? ceilon ce que la lere Jettre 


STA  VARPNT : était convenable ou non 

BCC VRFYEOV : Va vérifier si on a vu toutes les variables 
INC VARPNT+i 

VRFYEOV EQU * 

LDA VARPNT+1 
CMP  ARYTAB*1 
BCC CMPVAR 
BNE NOVAR 
LDA VARPNT 
CMP  ARYTAB 


: A-t-on terminé la zone des variables simples 


BCC CMPVAR 
LOA £0 : La variable n'existe pas, donc 0 
STA INDEX 


BEQ VARFOUND 
VARFND  PLA 
VARFOUND EQU * 


LDY VARPNT+1 : Pour indiquer 4 FAC où se trouve la vaieur 
LDX VARPNT + de l'index 
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TXA COMPREM JSR CHRGETI ; Il faut le comparer avec ce qui suit le REM 















BNE PUTINFAC BEQ FINLAB + Fin du REM ? 
INY LDY BUFFER,X 
PUTINFAC EQU * CrY £',! : Dans une liste, une virgule ou des 
JSR MOVFM : Met la variable en FAC BEQ EXECLIN : guillemets signifient une fin de label 4 | 
JSR  GETADR : Puis convertit FAC en entier dans LINNUM CPY £$22 + rechercher. 
NOVAR  EQU * BEQ EXECLIN 
LDA  LINNUM QUE" ARS FER A 
STA INDEX ; On a un {index BNE READLINE : Mais c'est différent, donc... 
INX : Si c'est identique, essaye plus loin ! 
PLA CPX LENGTH : Mais ce n'est pas la peine d'en faire trop. 
TAX BCC COMPREM 
PLA 
BNE LEGALI * Execute cette ligne 14 
LEGAL EQU * ; C'est bon, EXECLIN EQU * 
{ LDX  £0 LDA COMMANDE + Selon ce que c'est, on n'agit pas pareil: 
STX INDEX + 11 n'y a pas d'index CMP  £GOTO 
LEGALI EQU ” BEQO EXECGOTO 
STA COMMANDE + Alors range le type de commande qu'on a eu. CMP  £RUN 
INX “ Puis verifie l'existence du guillemet avant BEQ EXECRUN 
LDA BUFFER, X : le label. 
CMP £$22 +: $22 est le code de ” LDA £3 : C'est un GOSUB qu'il faut executer, 
BEQ TESTINDX ; S'il y est, on peut aller chercher le label JSR  $D3D6 : Ceci est le début de la routine GOSUB, mais 
e aprés le REM. LDA TXTPTR2r1 ; la différence est qu'on ne va pas lire le n° 
NOGUILL EQU * PHA : de ligne qui suit puisqu'on l'a remplacé par 
LDY £>ERRORO : Sinon, c'est raté, on doit tout arreter. LDA TXTPTR2 : un label. 
LDA  £<ERRORO PHA 
JSR  STROUT LDA CURLIN+I ; Dans la pile, remarquez qu'on place: 
JMP BASIC PHA : TXTPTR d'où on part, 
LDA CURLIN + CURLIN qui s'execute encore, 
Li Teste s'11 faut indexer et si oui alors allons-y PHA : COMMANDE pour signaler que ce qui se trouve 
LDA COMMANDE : dans la pile vient d'un GOSUB par exemple. 
TESTINDX EQU * PHA 
LDY INDEX : On n'indexe que s1 on doit lire aprés le ler JSR CHRGOT 
CPY £2 JSR GOTOBIS ; Ca y est au lieu d'aller en GOTO où on aurait 
BCC READY “ Sinon, en est déja pret... JMP NEWSTT : lu un n° de ligne, on ne le fait pas: 
# : on se branche aprés (GOTOBIS) 
SEEKCOMA EQU * EXECRUN EQU * 
LDA BUFFER,X ; On recherche les virgules car elles marquent JSR CHRGOT ; Est-on déja en fin de ligne ? 
CMP £',' ; la fin d'un label 4 rechercher: c'est un BEQ EXECRUNI + Si oui, alors fait le RUN... 
BEOQ COMA : séparateur dans la liste de label EXECRUN2Z JSR CHRGETI + Sinon, il faut se placer en fin de iigne. 
INX ; Mais 11 faut quand meme rester dans les BNE EXECRUN2 
CPX LENGTH ; limites de la ligne 4 étudier EXECRUNI EQU * 
BNE SEEKCOMA JSR CLEARC ; Mise à zero de la pile et des variables 
RTS + Si l'index > nombre de labels, alors on sort JMP NEWSTT ; Execution de la prochaine instruction... 
COMA INX : Après une virgule, on doit Creuver un " EXECGOTO EQU * 
LDA BUFFER, X JMP DATA ; C'est un GOTO, et comme on a déja fixé TXTPTR 
CMP £$22 ® ; au but du saut, on execute... 
BNE NOGUILL ; Sinon c'est une erreur 
DEY + Passe au prochain de la liste, * CHRGET qui controle la fin du texte. 
CPY £l + et si on est au bon, alors 11 faut y aller 
BNE SEEKCOMA CHRGETO EQU * : Avant de lire un caractère du prog., on doit 
READY EQU * LDA TXTPTR+1 : s'assurer qu'on est toujours dedans... 
INX ; On est pret 4 rechercher le label CMP  LOMEM+1 
STX PLACE ; Sauve le début du labei BCC GOGET 
LDA TXTPTR 
* Recherche d'une instruction REM dans le texte. CMP  LOMEM 
BCS PRNTEND 
LDA TXTPTR + Regarde bien où on en est dans le texte. GOGET JMP CHRAGET ÿ .…. et si c'est bon, on y va. 
LOX TXTPTR+I +: puis sauve pour plus tard peut-etre. 
STA TXTPTR2 PRNTEND LDY £L>ERROR2 ;: Si on sert, c'est que le label recherché 
STX  TXTPTR2+#1 LDA £<ERROR2 : n'a pas été trouvé. Alors on s'arrête. 
JSR STROUT 
LDY TXTTAB ; Fixe le pointeur au début du programme. JMP BASIC 
DEY ; ( moins I } 
LDX TXTTAB+I * Messages divers 
STY TXTPTR 
STX TXTPTR#I HEX  8D8D8D8D8D8D8D8D8D8D8D8D 
SEEKREM EQU * ASC "“GOGO NE PEUT S'INSTALLER" 
JSR CHRGETI : Va lire les 2 octets qui donnent l'adresse HEX  8D00 
JSR CHRGETI + de la prochaine ligne. 
HEX  8D 
JSR CHRGETI + Passe aussi les 2 octets du numére de ligne. ASC “IL FAUT GOTO, GOSUB OÙ RUN" 
STA LINNUM + et en passant, on stocke. HEX  8D0700 
JSR CHRGETI HEX  6D 
STA LINNUM+i ASC “IL FAUT UN GUILLEMET" 
HEX 8D6700 
SEEKREM2 JSR CHRGETI : Puis on lit le début de l'instruction. 
CMP £REM + Est-ce un REM ? HEX  8D 
BEQ READREM : Oui ! alors on va aller le lire. ASC "LE LABEL N'EXISTE PAS" 
READLINE JSR CHRGETI ; Non alors on passe à la prochaine instruction HEX  8D0700 
BNE READLINE 
CMP £00 ;: Fin de ligne ? * Commandes valables 
BEQ SEEKREM ; Oui, va sauter ce qu'il y a avant ie texte. 
BNE SEEKREM2 +: Non alors teste un REM. DFB GOTO, GOSUB, RUN 
FINLAB EQU * * Masque pour le marquage de la BitMap 
LDY BUFFER,X 
CPY £',' BITMASK HEX 8040201008040201 
BEQ EXECLIN 
CPY £$22 * Pages 4 protéger 
BEQ EXECLIN 
BNE READLINE PROTECT HEX O3FFFFFF 
READREM EQU * FIN EQU "* 
LDX PLACE : Le début du label 
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80B8:99 00 03 88 CO FF DO F5 81D8:85 50 20 00 03 85 51 20 





Récapitulation 80C0:60 A2 01 20 B7 00 8D 80 81E0:00 03 C9 B2 FO 18 20 00 
80C8:02 20 B1 00 FO 06 9D 80 81E8:03 DO FB C9 00 FO EO0 DO 
GOGO 80D0:02 E8 DO F5 CA 8E 9C 03 81FO0:EE BC 80 02 CO 2C FO 24 
80D8:A2 02 BD 8E 03 CD 80 02 81F8:C0 22 FO 20 DO E8 AE A0 
| 80E0:D0 03 4C 7C 81 CA 10 F2 8200:03 20 00 03 FO EB BC 80 
Après avoir saisi 80E8:A2 00 BD 80 02 C9 AB FO 8208:02 CO 2C FO OF CO 22 F0 
ce code sous 80F0:18 C9 BO FO 14 C9 AC FO 8210:0B DD 80 02 DO DO E8 EC 
moniteur, vous 80F8:10 E8 EC 9C 03 DO EB A0 8218:9C 03 90 E5 AD 9F 03 C9 
le sauvegarderez 8100:03 A9 3F 20 3A DB 4C DO 8220:AB F0 34 C9 AC FO 20 A9 
par : 8108:03 48 8A 48 AO 00 B9 80 8228:03 20 D6 D3 AD SE 03 48 
BSAVE GOGO, A$8000,LS$2F7 8110:02 85 81 EO 01 DO 06 A9 8230:AD 9D 03 48 A5 76 48 A5 
8118:00 85 82 FO 06 C8 B9 80 8238:75 48 AD 9F 03 48 20 B7 
8000:AD 00 BF C9 4C FO 03 4C 8120:02 85 82 AS 69 A6 6A 85 8240:00 20 55 D9 4C D2 D7 20 
8008:A1 80 A9 03 20 F5 BE 90 8128:83 86 84 AO 00 B1 83 C5 8248:B7 00 FO 05 20 00 03 DO 
8010:10 20 39 FB 20 58 FC A9 8130:81 38 DO OF E6 83 18 DO 8250:FB 20 6C D6 4C D2 D7 4C 
8018:19 A0 03 20 3A DB 4C 1E 8138:02 E6 84 08 B1l 83 C5 82 8258:95 D9 A5 B9 C5 6A 90 06 
8020:80 8D 3D 80 8D F4 82 8D 8140:F0 20 28 A5 83 69 06 85 8260:A5 B8 C5 69 BO 03 4C B1 
8028:97 80 AA E8 8E F5 82 E8 8148:83 90 02 E6 84 A5 84 C5 8268:00 A0 03 A9 75 20 3A DB 
8030:8E F6 82 A9 00 8D 3C 80 8150:6C 90 D8 DO 1D A5 83 C5 8270:4C DO 03 8D 8D 8D 8D 8D 
8038:AD C1 80 8D FF FF EE 39 8158:6B 90 DO A9 00 8D A1 03 8278:8D 8D 8D 8D 8D 8D 8D C7 
8040:80 DO 03 EE 3A 80 AD 3A 8160:F0 01 68 A4 84 A6 83 EB8 8280:CF C7 CF AO CE C5 AO DO 
8048:80 C9 82 90 O0B DO 13 AD 8168:8A DO 01 C8 20 F9 EA 20 8288:C5 D5 D4 AO D3 A7 C9 CE 
8050:39 80 C9 F7 90 02 DO OA 8170:52 E7 A5 50 8D A1 03 68 8290:D3 D4 CI CC CC C5 D2 8D 
8058:EE 3C 80 DO DB EE 3D 80 8178:AA 68 DO 05 A2 00 8E Al 8298:00 8D C9 CC A0 C6 C1 D5 
8060:D0 D6 A9 03 85 CF A4 CF 8180:03 8D 9F 03 E8 BD 80 02 82A0:D4 AO C7 CF D4 CF AC A0 
8068:B9 F3 82 48 4A 4A 4A AA 8188:C9 22 FO OA AO 03 A9 5D 82A8:C7 CF D3 D5 C2 AO CF D5 
8070:BD 58 BF 85 D7 68 29 07 8190:20 3A DB 4C DO 03 AC A1 82B0:A0 D2 D5 CE 8D 07 00 8D 
8078:A8 B9 EB 82 24 D7 DO 91 8198:03 CO 02 90 1B BD 80 O2 82B8:C9 CC A0 C6 C1 D5 D4 A0 
8080:05 D7 9D 58 BF C6 CF 10 81A0:C9 2C FO 07 E8 EC 9C 03 82C0:D5 CE A0 C7 D5 C9 CC CC 
8088:DD A0 90 B9 5A 82 99 O0 81A8:D0 F3 60 E8 BD 80 02 C9 82C8:C5 CD C5 D4 8D 07 00 8D 
8090:03 88 CO FF DO F5 A9 FF 81B0:22 DO D9 88 CO 01 DO E5 82D0:CC C5 AO CC C1 C2 C5 CC 
8098:A0 00 8D F7 03 8C F6 03 81B8:E8 8E A0 03 A5 B8 A6 B9 82D8:A0 CE A7 C5 D8 C9 D3 D4 
80A0:60 A9 80 AO Cl 8D F7 03 81C0:8D 9D 03 8E 9E 03 A4 67 82E0:C5 A0 DO C1 D3 8D 07 00 
80A8:8C F6 03 A9 80 AO 00 85 81C8:88 A6 68 84 B8 86 B9 20 82E8:AB BO AC 80 40 20 10 08 
80B0:74 84 73 AO 90 B9 5A 82 81D0:00 03 20 00 03 20 00 03 82F0:04 02 01 03 FF FF FF 





Voici la liste des fichiers que vous trouverez sur les disquettes Pom's Apple // 1 ? 4 7 
conespondant à ce numéro. vis diquates Pons Appel Disquettes Poms 31 Apple 


La disquette 525 pouces 140Ko est formatée au recto en DOS 3.3 et au 
verso en ProDOS. Tous les fichiers ne tenant pas sur une face, nous les avons 
répartis en fonction du DOS utilisé. La face ProDOS ne boote pas (pour une 
question de copyright) ; il vous appartient donc d'y installer ProDOS et 


Basic.System. : chi 

; Li fichiers k } 
La disquette 800Ko comprend tous les fichiers en format ProDOS. Il faudra es cb uns sé d' il 
convertir en DOS 3.3 les fichiers qui le nécessitent. oi pe 

A008 MENU Programme de lancement de 

Liste des fichiers, face ProDOS à ra ere à ont 
GOGO BIN Objet à exécuter B 002 HELC 
T.GOGO TXT Source Assembleur BO11 SCHEMC 
GOGO.DEMO BAS Programme de démonstration B 008 CARAC.SH 
PIC.POC BIN Objet à exécuter A 036 FONCTION 
GSCOLOR BAS Programme de démonstration B 002 FONC.C 
PIC.POC.S TXT Source Assembleur A018 GRAVURE 
LIT.MESS.GS BAS Programme de démonstration È 004 pes 
T.WRITE560 TXT Source Assembleur se 
TWRITES6ODEMO TXT Source Assembleur de démo » DA APEECS) 
WRITES6ODEMO  BIN Objet correspondant Fo Cu cest let ca 
ESSAI.PAS BIN Source Turbo-Pascal T 006 T.FONC . 
DIAG.PAS BIN Source Turbo-Pascal T013 T.GRAV 
LEMOUSE30.C  BIN Objet à exécuter $ 
LEMOUSE3.0 TXT Source Assembleur a D 1 Hs 
START.MOUSE BAS Programme de lancement A003 GOGODEMO Programme de démonstration 
AT sa Es deg d'accueil A037 LE. VOYAGEUR Programme à exécuter 
HITS Et no générées T002 TEXT Fichier de démonstration 
NOEL BIN programme B013 ESSAI.PAS Source Turbo-Pascal 
ELLIPSES BIN  Schémateur B019 DIAG.PAS Source Turbo-Pascal 
GLOBE BIN de la face DOS 33 B 034 1M31 Image HGR 
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Une nouvelle carte : 


Speedisk 


Alexandre DubackK 


La carte dont nous vous proposons 
ici un banc d'essai est distribuée par 
la S.A. LOGMA, société qui 
travaille par ailleurs en régie pour la 
revue Porm's. 


La carte 


La carte Speedisk est un disque 
virtuel permanent : elle est un 
véritable volume ProDOS, sur 
lequel on peut démarrer et sur lequel 
on stocke fichiers et programmes. 
La mémoire de masse n'est plus un 
support magnétique traditionnel : la 
carte est constituée de circuits 
CMOS sans organes mécaniques en 
mouvement : les accès disque sont 
donc extrêmement rapides et la 
fiabilité est comparable à celle de 
l'unité centrale. 


On accède à l'information en 0,2 ms 
soit 100 fois plus vite qu'avec un 
disque dur. Sur un Apple IIGS en 
mode rapide les chargements 
s'effectuent à raison de 100 blocs 
par seconde soit 51200 octets/ 
seconde. 


Les informations sont préservées 
pendant deux mois après l'arrêt de 
l'ordinateur, grâce à un accumu- 
lateur qui se recharge lorsque 
l'ordinateur est sous tension : il ne 
faut donc pas laisser l'appareil plus 
de deux mois hors tension sans 
sauvegarder le contenu de Speedisk 
Sur disquette. 


La capacité 


Speedisk est proposée en quatre 
versions : 384 Ko et 1 Mo, avec ou 
sans horloge. La première version 
est extensible à 1 Mo. 
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Les cartes avec horloge compatible 
ProDOS n'ont d'intérêt que sur ][+ 
et //e, la carte intégrée au IIGs 
remplissant fort bien son office. 
Notons d'ailleurs que les cartes 
Speedisk dotées d'une horloge sont 
incompatibles avec le IIGS. 


ProDOS se refuse à reconnaître un 
support de masse et une carte 
horloge dans le même slot, aussi, 
pour utiliser l'extension horloge, il 
faut installer un programme (livré 
sur disquette) qui s'exécute lors du 
démarrage pour modifier ProDOS. 


L'ordinateur 


La carte fonctionne indifféremment 
sur Apple ]f+ (avec carte langage 
pour ProDOS), //e et 1IGS. Les 
programmes sont métamorphosés 
surtout ceux ayant recours 
fréquemment à des fichiers : les 
programmes WPL d'AppleWriter par 
exemple, sont méconnaissables. 

La carte étant un support disque 
comme un autre, est toujours 
adressée à 1 Mhz même en mode 
rapide (sur le IGS bien sûr). 


La vitesse 


Mieux qu'un long discours, voici les 
temps d'exécution mesurés. 


+ Booter sur Basic.System =35s 
+ BRUN FILER =1/25s 
+ BRUN AppleWriter =1/2s 
+ Sauver un texte de 46 Ko 

depuis AppleWriter =5s 


*_ AppleWorks =1s 
+ Écrire un enregistrement 


TEXT de 100 octets =1/365s 
soit 3,5 Ko/s 
soit 2150 enregistrements/mn 

+ BSAVE de 36 Ko =1s 





+ Formater 1 Mo =1s 
+ Avec MouseDesk, copier 75 
fichiers (900 Ko) de 


Speedisk vers /RAM5 =1mn 
+ De Launcher à GSPaint =175s 
Temps cumulés : 

sur Unidisk 3,5° sur Speedisk 

PR£slot Os 05 
ProDOS 16 gs 25 
Launcher 495 105 
MouseDesk 715 155 
GSWrite 1495 345 
A !! 
A l'usage 


On se prend rapidement à oublier le 
lecteur traditionnel et à imaginer un 
‘disque dur’ de 20 Mo conçu de la 
même façon. Mais, en réalité, le 
nombre de programmes utilisés de 
façon journalière est restreint et 
tient sans nul doute sur 1 Mo. Par 
exemple : un programme de gestion 
du compte bancaire, un traitement 
de texte, un tableur, un programme 
de dessin, quelques programmes en 
Basic et les utilitaires essentiels de 
Pom's.. Pour les collections de 
programmes rarement utilisés, la 
disquette reste le stockage 
économique. 

Sur 384K0, on se sent plus à l'étroit 
et seuls les programmes utilisés 
quotidiennement trouvent leur place. 


Le spécialiste du traitement de 
texte n'hésite plus à faire les 
sauvegardes, quasi-instantanées, 
sans craindre que le disque virtuel 
IRAM ou /RAMS perde la mémoire 
à la suite d'une micro-coupure. 


Pour une utilisation plus spéciale 
(centres de formation, école) et 
tous les milieux à risques, le disque 
virtuel permanent est certainement 
la solution la moins sensible aux 
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indélicats. 


L'aspect ‘environnement de bureau’ 
type Macintosh devient réellement 
utilisable car revenir à MouseDesk 
prend quelques secondes seulement 
alors que, sur disquette, l'utilisateur 
recourt parfois au RESET.… 
L'Apple 1lGS passe plus de temps à 
son autotest de mise sous tension 
qu'à booter Basic.System. 


Un petit regret tout de même : il 
n'existe pas encore de contrôleur 
-ou plutôt de patch- pour l'utiliser 
sous DOS 3.3, mais, patience. Idem 
pour Pascal et CP/M. 


Au SAMU 


Cette carte a en effet été adoptée 
par un SAMU, activité dans laquelle 
fiabilité et accès rapide à 
l'information sont des critères 
vitaux. 


Dans la carte 


Strictement équivalente à un 
lecteur de disquette, on trouve dans 








la page $Cn (n est le n° de slot) les 
conventions habituelles : $Cn01, 03 
et 05 valent bien $20, 0 et 3. 


Pour la carte 1 Mo, en $CnFC et 
$CnFD il y a bien 00 08 qui signifient 
$800 blocs sur le disque : 2048 x 512 
= 1024 Ko. 


Surprise : en $CnFE on trouve $8F, 
le bit 7 est à 1 ce qui signifie 
‘support amovible’. Surprenant pour 
une telle carte !.. Il s'agit en fait 
d'un défaut de ProDOS qui ne 
supporte pas ce bit à 0. Aucune 
conséquence pratique, pas plus que 
pour les disques durs dont les 
contrôleurs ont également ce bit à 1. 


Plus standard, on dispose de 51 
entrées dans le catalogue du 
volume. Au-delà il faut créer des 
sous-catalogues comme pour les 
autres volumes. 


Pour utiliser l'horloge des cartes SP 
400H et SP1000H, il est nécessaire 
d'installer le programme nesp. 
SYSTEM Comme premier fichier 
système de la carte. Ce programme 
installe le vecteur ProDOS en 
$BF06.$BF08 : 4c p8 Cn c'est-à- 





dire JSR $Cnpg puis effectue un 
premier GET_ TIME pour mettre à 
jour la date dans la page globale en 
$BF90.$BF 98. Ce programme lance 
alors le fichier système suivant 
dans le catalogue. 


L'ensemble des GET _ TIME 
aboutiront alors à une mise à l'heure 
de la page globale : c'est le cas par 
exemple d'un SAVE ou d'un CLOSE 
en Basic (les fichiers sont ainsi 
datés). 


Fr 


Le tarif 

SP400 (384 Ko) 3 990,00 F 
SP1000 (1 Mo) 5 990,00 F 
SP400 horloge 4 580,00 F 
SP1000 horloge 6 580,00 F 


tarifs sur lesquels LOGMA applique 
une remise de 10% aux lecteurs de 
Porm's. 

Les cartes sont garanties 1 an, et 
ce par échange en cas de problème. 


G 


Une carte vocale : 
Valentine 


La carte de synthèse de parole 
Valentine n'est pas à proprement 
parler une nouveauté : nous en 
avions eu deux dans les mains il 
y à un an mais elles n'en étaient 
encore qu'à la phase de 
développement, le mode d'emploi 
ressemblait encore trop à un 
cahier des charges. Pour la petite 
histoire, on lisait à l'époque, ça et 
là des ‘bancs d'essai’ fort 
élogieux qui ne manquaient pas 
d'abuser le lecteur. Par ses 
possibilités, la nouvelle version 


de Valentine mérite cette 
présentation. 


La carte 


Elle a été conçue en collaboration 
avec l'Association Valentin Haüy 
pour les Aveugles et c'est bien 
entendu à ceux-ci que s'adresse 
en priorité la synthèse de parole. 

La carte s'enfiche dans l'un des 
slots de l'Apple //e, ordinateur 
qui doit être muni du kit 65C02 ; 


le haut parleur interne de l'Apple 
est utilisé mais un jack est prévu 
pour un modèle extérieur. Outre 
la connexion au slot, un fil est à 
relier — à l'aide d'un support de 
circuit prévu à cet effet — au 
décodeur clavier. Le clavier est 
alors reconnu par la carte qui peut 
générer une interruption et donc 
travailler en immobilisant 
provisoirement le programme en 
cours. La version IIGS (moins 
coûteuse) qui n'est pas encore 
disponible, ne nécessitera pas 








cette intervention puisque le 
clavier, comme sur le Macintosh, 
génère des interruptions à la 
disposition du programmeur. 


De la dimension d'une carte SSC, 
les modèles que nous avons eu en 
mains souffraient encore de la 
présence de quelques straps, 
composants ajoutés côté pistes et 
modifications de dernière heure. 


Autour sur processeur 8085 à 8 
Mhz, nous trouvons 196Ko de 
ROM sur la carte : 77 pour les 
phonèmes, 50 pour les règles de 
prononciation et le reste pour le 
programme. 


La synthèse 


Avec un peu d'habitude, 
l'intégralité de la prononciation 
est reconnue ; après avoir tenté 
une voix d'homme, c'est 
finalement une voix féminine qui 
a été retenue, vitesse de 
prononciation et timbre sont 
réglable. Les occlusives p t det b 
prononcées seules restent 
difficiles à différencier et 
demandent un effort d'attention, 
idem pour les fricatives fet vou 


pour ‘.’et ‘-” dits «point» et 
«moins». Un mode 
‘télégraphique’ (ou plutôt 


aéronautique) lève les ambiguïtés 
les mots étant épelés «Papa 
Tango Delta Bravo...». Les 
signes et accents sont dits en 
clair : «a commercial, e accent 
aigu, parenthèse ouverte.…..». 


La carte sait prononcer sans 
erreur les pièges-type tels «les 
présidents président, les 
poules du couvent couvent, 
estomac». En revanche les 
mots-clé du Basic ne faisant pas 
partie des exceptions sont 
prononcés à la française. Les 
nombres sont fort bien dits «cent 
soixante milliards quatre cent 
onze millions...». 


Les minuscules sont différenciées 
des majuscules et l'utilisateur 
choisit, selon le type de travail le 
mode qui convient : A a seront 
prononcés «A À MIN» ou «A 
MAJ A» ; le premier mode 
convient au Basic, riche en 
majuscules, le second au 
traitement de textes. 





Quatre modes de 
fonctionnement 


1-Echo-clavier 


Le mode le moins utilisé car la 
disposition des touches d'un 
clavier est le plus simple à 
acquérir pour un malvoyant. 
Dans ce mode, après avoir fait 
PR£slot depuis le Basic (les 
problèmes commencent quand on 
n'est pas en Basic...), la carte 
prononce les touches appuyées : 
«Pé èR I èN Té» par exemple. 
Les affichages à l'écran ne génère 
pas de synthèse. 

La synthèse se fait au rythme de 
un caractère/seconde ; un 
caractère survenant avant le délai 
d'une seconde interrompt la 
synthèse du précédent. 


2-Echo-écran 

Ce qui est affiché à l'écran est 
prononcé. Bien sûr, seuls les 
accès standard à l'écran sont 
interceptés : PRINT depuis le 
Basic, JSR $FDED en assembleur 
par exemple. Les affichages par 
gestion directe de la mémoire 
écran du style STA $400, x sont 
invisibles pour la carte. Ce mode 
n'est d'ailleurs pas le plus utile ni 
le plus confortable. 


3-Éditeur vocal 


Le point fort de Valentine II : une 
interruption par G-RETURN et la 
carte prend le pas sur le 
programme. Il est alors possible 
de demander la lecture de l'écran 
(quelle que soit la méthode 
retenue pour l'affichage) aussi 
bien en 40 qu'en 80 colonnes. 
L'éditeur est puissant, il 
comprend les commandes 
suivantes : 


+ déplacement du ‘curseur 
vocal” à l'aide des flèches, un 
bip étant généré à chaque 
tentative de dépassement des 
limites ; 

* positionnement en début et 
fin de ligne (les espaces en 
fin de ligne ne comptent pas) ; 

* positionnement en haut et en 
bas de l'écran ; 

* positionnement au début du 
mot suivant ; 





positionnement au début du 

mot précédent ; 

* positionnement absolu : VO2 
H17 pour aller au 17ème 
caractère de la 2ème ligne ; 

* lecture d'un caractère ; 

* lecture de l'écran à partir du 
curseur ; 

* lecture d'une ligne ; 

+ lecture d'un mot; 

* épellation d'un mot. 


La carte ne précise pas si un 
caractère est en mode flash mais 
indique le mode inverse : «b 
inv», «e inv» par exemple. 

Perdu au milieu de l'écran, il 
suffit de presser G pour que la 
carte donne la position du curseur 
vocal sous la forme de deux 
chiffres (ligne, colonne). Nous 
avons constaté une erreur 
épisodique dans les numéros de 
ligne, l'écran étant parfois 
numéroté à partir de 2. 

On peut toujours stopper la 
synthèse, ouf ! certains écrans 
sont en effet bien remplis. 


Trois modes de 
prononciation 


Le mode littéraire est celui retenu 
par défaut : les ()S$°*-6£:/=><7 
et ! ne sont pas signalés. 

Mode détaillé, tout est prononcé 
sauf ?!;,et. 

En mode épellation, rien n'est 
oublié. 


4-Parole compressée 


Dans ce mode, d'une utilisation 
plus spécialisée, la carte prononce 
des paroles préalablement 
compressées et stockées en 
fichiers. Le principe ressemble à 
celui du programme Le Bavard 
paru dans Pom’s, qualité 
acoustique incomparable, celle de 
la carte étant alors parfaite. Ce 
mode ouvre la porte aux 
applications du type ordinateur à 
bord des voitures ou répondeur 
téléphonique. Le fabricant 
s'occupe de compresser les textes 
pour utilisation avec la carte. 


Mode d'emploi et 
commandes 


Le mode d'emploi (en traitement 
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de texte) n'est pas très précis sur 














les syntaxes : faut-il un espace ?, 
faut-il un point ? Il est disponible 
également en braille et sur 
cassette. Les commandes choisies 
pour l'éditeur vocal sont 
suffisamment mnémotechniques 
pour ne pas recourir à la 
documentation. Il est certain 
qu'un malvoyant ne connaissant 
pas l'Apple ne pourra se 
dispenser des cours de formation 
de l'Association Valentin Haüy 
pour utiliser AppleWorks avec la 
carte. 


Dans la pratique 
AppleWorks 


Comme pour tous les 
programmes, le problème est 
d'activer Valentine (NDLR : !) 
par l'équivalent d'un PR£. Pour 
AppleWorks, pas de problèmes, 
on définit la carte comme étant 
l'imprimante et le premier G-4 
déclenche la copie d'écran 
salvatrice. L'éditeur vocal remplit 
alors fort bien son office ; avec 
un peu d'habitude on doit 
identifier rapidement un menu. 


Dans le tableur, il est difficile de 
ne pas se perdre au milieu de la 
feuille de calcul, un peu de 
virtuosité n'est pas superflue. 


Avoir retrouvé une faute à l'aide 
de Valentine est une chose, mais 
positionner le curseur du 
traitement de textes pour effectuer 
la modification. Il faut repérer la 
chaîne de caractères qui suit la 
position à rechercher puis 
demander à la fonction de 
recherche la chaîne voulue. Le 
curseur est alors en principe à 
l'endroit qui convient. Pas 
simple. 

La position courante d'écriture est 
à jour avec bien des programmes 
($24, $25) : Valentine aurait pu 
émettre un bip particulier lors du 
passage du curseur vocal sur cette 


position, c'était une aide 
possible. 
ProCODE 


Pas de problème de fonction- 
nement, mais comment activer la 


carte ? Il suffit de quitter par 
CTRL-Q, faire 2 CTRL-P si 
Valentine est en slot 2, puis D92G 
pour relancer ProCODE. RESET 
le relance également mais 
déconnecte la carte. 


Interpom's 


Pas de souci, faire simplement 
PR£2 avant -INTERPOMS. 


Assembleur BigMac 


Malgré une petite perturbation de 
l'affichage, BigMac est 
compatible avec Valentine. 


AppleWriter 


Nous n'avons pas trouvé de 
possibilité d'utilisation. Contrai- 
rement aux indications de la 
documentation, Valentine est 
gérée ‘à la manière’ de la carte 
Super Série Apple et non 
‘comme’. 


Dommage, si les registres DATA et 
STATUS était les mêmes ($C089, 
$co88), il serait possible au 
moins d“‘imprimer” le texte sur la 
carte car Apple Writer reconnaît la 
SSC; 


Programmes Pascal 


Nous n'avons aucune possibilité 
d'utiliser Valentine avec le 
langage Pascal. Mêmes causes, 
mêmes effets, on ne peut pas 
T)ransférer un fichier sur la 
carte. 


Sargon II 


Les échecs Sargon ne seront pas 
à la portée des malvoyants : le 
plantage survient rapidement. 


Assembleur 


Sortir des caractères sur la carte 
en assembleur ne pose pas plus 
de problème qu'en Basic ; à noter 
que la routine indiquée dans le 
mode d'emploi était incompatible 
avec la carte dont nous avons 
disposée (caractères prononcés 
deux fois). 


CP/M 


Avant d'utiliser la carte, un patch 
du CP/M (indiqué dans la notice) 
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est nécessaire ; ce patch devrait 
être livré sur une disquette pour 
éviter à l'utilisateur final de 
s'interroger sur l'assembleur 
Z80. Le fonctionnement ne sera 
pas total car CP/M intercepte le 
caractère CTRL-P avant la carte 
mais l'éditeur vocal reste 
opérationnel. 


Conclusion 


Certainement une excellente carte 
qui tranche totalement avec celle 
proposée il y a un an et qui met la 
micro-informatique Apple à la 
portée des aveugles. Il reste que 
l'Association Valentin Haüy sera 
peut-être la bonne source de 
conseils en fonction de 
l'application envisagée. 

Le prix de la carte -environ 
5 500,00 F TTC-, intervient 
dans la décision d'achat mais il 
n'est pas surestimé en regard des 
études investies. 


Une carte a été conçue par un 
utilisateur de Valentine pour la 
doter de macros. Cette carte, peu 
coûteuse, s'insère dans un autre 
slot et permet par exemple à une 
seule touche de commander la 
mise en éditeur vocal, le 
positionnement en bas de l'écran, 
puis en fin de ligne, puis un mot 
en arrière, puis la lecture du mot. 
Ainsi, en cas de doute sur la 
frappe, le dernier mot saisi sera 
facilement prononcé par 
Valentine. Elle donne également 
une fonction de recherche de 
chaînes. 


Lorsque les yeux font défaut, on 
peut penser à l'écran tactile qui 
remplace le moniteur : très rapide 
d'accès pour l'utilisateur, il 
donne une image fidèle de l'écran 
à l'aide de huit picots par 
caractère (soit 256 combinaisons 
possibles) disposés à la manière 
des points braïille, le curseur étant 
symbolisé par les huit points ON. 
Il faut hélas y consacrer le prix de 
huit Valentines II... 


Sté Ferma, 14 rue de l'abbé Carton, 


75014 Paris. 








Tél. : (1) 45 43 14 79 
Pom's n° 31 








Ecriture proportionnel e 


en DH 


RITES60 permet 
d'écrire en mode 
graphique sur un 
Apple // (/e, lc, 
I1IGS) muni d'au moins 
128Ko ; il ferait double 
emploi si le mode graphique 
utilisé était l'habituelle 
résolution de 280x192 
points, mais le mode très 
haute résolution 560 x 192 a 
été adopté. L'écriture 
s'effectuera avec une chasse 
proportionnelle le m 
occupera plus de place qu'un 
i. 





N'aviez vous jamais rêvé de faire 
du wysiwig (What You See Is 
What You Get : ce que vous 
voyez est ce que vous obtenez) 
sur un autre ordinateur que le 
Mac ? 


Utilisation 


L'appel de ce programme est 
destiné prioritairement à des 
programmes en assembleur. Il 
vous sera toujours possible 
d'écrire une interface avec 
l'Applesoft, via quelques POKESs 
ou l'ampersand par exemple. 


Le protocole concerne 4 points : 


+ Le programme doit être appelé 
par JSR Ou CALL à l'adresse 
CHROUT. 


+ La partie haute de l'adresse de 
la chaîne à éditer doit être 
placée en CHROUT1+2, alors 

que la partie basse le sera en 

CHROUT1+1. Les caractères 

composant la chaîne doivent avoir 

le bit 7 à 1, et se terminer par un 
$8D. 
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+ On peut préciser la position 
initiale de la chaîne sur l'écran 
en plaçant ses coordonnées 

dans l'accumulateur (position 

verticale de 0 à 191), et dans les 
registres d'index (position 

horizontale de 0 à 559). Enfin, il 

faut mettre la retenue à 1 avant 

d'appeler le programme. 


Par exemple, pour se positionner 
sur la 100ème ligne et la 320ème 
colonne, il suffit de faire : 


LDA £100 
LDX £64 
LDY £1 ; 
SEC 


+ L'espace entre les lettres peut 
être modifié à loisir ; par défaut, 
deux points blancs sont intercalés 
entre chaque lettre. Pour modifier 
cette valeur, il faut la placer à 
l'adresse ESPACE+1. 


1*256+64=-320 


Enfin, le programme wWRITE560 
est utilisable indifféremment sous 
ProDOS ou DOS 3.3. Par 
ailleurs, son adaptation à Pascal 


ne devrait pas poser de 
problèmes. 
Fonctionnement 


Le codage des lettres consiste à 
les inverser puis les dessiner dans 
une matrice de 7x8 points et enfin 
de recoder le tout. 


Par exemple pour un À : 


7654321 
RE + 01 
Tasesss + 01 
RES + 01 largeur 4 
5 ... 07 
4...°.,.e 09 
Dose. 09 
2...°..° 09 
Lettre 00 


F. Rozay 


pour un w: 
7654321 
ns 00 
Tasse 00 
LE 11 
5..°...+ 11 largeur 5 
des. 11 
Zisessse 15 
2.,.%.,e 1B 
Lise ae 00 


Le programme WRITE560.DEMO 
est un programme de 
démonstration qu'il suffit de 
lancer par : 

PRE 3 

BRUN WRITE560.DEMO 
suivi d'une instruction TEXT 
après son exécution. 


Le source T.WRITE560 est stocké 
sous forme d'un fichier TEXT au 
format Merlin/BigMac sur la 
disquette d'accompagnement de 
ce numéro. Il est appelé par le 
pseudo-opcode PuT de cet 
assembleur, aussi appelé copy 
sur d'autres assembleurs. Par 
ailleurs, le source T.WRITE560. 
DEMO illustre les modalités 


d'appel. 
G 


Source 
T.WRITE560 


Assembleur BigMac 


HBAS = $26 
PCL = $FA 
TXTPAGEL = $C054 
TXTPAGE2 = $Co55 
CHROÛUT 


BCC CHROUT1 
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CHROUTI LDA 


CHROUTFIN RTS 

RETURN 
LDA 
CLC 
ADC 
STA 
LDA 
STA 
STA 


AVANCE 











AVANCE JMP 


PONCTUA 


GRANDE 


PETITE 





ABS 
ORDL 
ORDH 
$SFFFF 
CHROUTFIN 
£$8D 
RETURN 
£$A0 
AVANCE 
£$CO 
PONCTUA 
£$EO 
GRANDE 
PETITE 


CHROUT6 


CHROUT2 


ABS 
ESPACE 
£10 
ABS 
£0 
ORDL 


ORDH CHROUT3 


CHROUT1+1 
AVANCE] 
CHROUT1+2 
CHROUT1 
CHROUT8 


DRAW 
£$AO 


£<PONCT 
PCL 
£>PONCT 
PCL+1 


LGPONC, Y 
EMPAT 
CHROUT6 


DRAWI1 


£$CO 


£<MAJUS 
PCL 
£>MAJUS 


PCL+1 DECALE 


LGMAJUS, Y 
EMPAT 
CHROUT6 


£$EO DRAWS 
£<MINUS 

PCL 

£>MINUS 

PCL+1 


DRAW2 


LGMINUS, Y 


STA EMPAT 


ADC  PCL 

STA PCL 
BCC CHROUT2 
INC  PCL+1 


LDA £8 

STA LENGTH 
JSR DRAW 
LDA  EMPAT 


ADC £2 

ADC  ORDL 
STA  ORDL 
BCC  CHROUT3 
INC  ORDH 
LDA  ORDH 
CMP E£2 

BNE  CHROUTS8 
LDA  ORDL 
CMP  £$2A 
BCC CHROUT8 
UMP RETURN 
JUMP AVANCE 


STA TXTPAGEI 


LDA ABS 
TAX 

LDA  CRDL 
STA DGTL 
LDA  ORDH 
STA DGTH 
JSR DIV7 
LDY £0 
JSR GETX 
STY ECCO 
TXA 

PHA 

LDA £0 


STA COMPLEMENT 
LDA (PCL),Y 
LDX RESTE 

BEQ  DRAWS 


ROL COMPLEMENT 


CPX £0 
BNE  DECALE 


STA DRANDI+1 
LDA  QUOTIENT 


BCS  DRAW2 
STA TXTPAGE2 


LDA  (HBAS),Y 


DRANDI1 


DRAW4 


DRAW3 


GETX 


DIV7 


DIV 


OVERFW 


DIVIN 


a ——————_——— ———_——————…—…—…—." .— — ——___—__——————_—_—_——————— ———]—]—]— — —_—_—_——— 


£$FF 

(HBAS), Y 
TXTPAGE1 
QUOTIENT 


DRAW4 
TXTPAGE2 


(HBAS), Y 
COMPLEMENT 
{HBAS) , Y 
TXTPAGE1 


£192 
DRAW3 
ECCO 


LENGTH 
DRAWI1 


VERTA, X 
HBAS+1 
VERTL, X 
HBAS 


£0 

MO 

M1 
QUOTIENT 
DGTA 
DIV 

DGTL 

£7 

DIV 
RESTE 


QUOTIENT 
MO 


£7 

MO 
OVERFW 
M1 

M1 
DGTH 
DIV 
DGTL 
MO 
DIVIN 


MO 
£7 
DIV 
RESTE 
MO 


DGTL 
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DIVID 


PONCT 


MAJUS 


DIVID+1 
£7 


Ê$FF 

£7 | 
DIV 
QUOTIENT 
RESTE 


0000000000000000 ;ESP 
0101010101000100 ;! 

0505050000000000 ;" 

0C02020702021D00 
041E050E140F0400 
0313080402191800 ; 
0205050215091600 ;& 
0606020100000000 ;" 
0402010101020400 ; 
0102040404020100 ;) 
04150E040E150400 ;* 
0004041F04040000 ;+ 
0000000606020100 ;, 
0000000700000000 ;- 
0000000000030300 ;. 
0010080402010000 
0E11191513110E00 
0203020202020700 
0E11100C02011F00 
1F10080C10110E00 
080C0A091F080800 
1F010F1010110E00 
1C02010F11110E00 
1F10080402020200 
0E11110E11110E00 
0E11111E10080700 
0003030003030000 
0000020002020100 ;; 
0804020102040800 ;< 
0000070007000000 ;= 
0102040804020100 ;> 
1£3330180C000C00 ;? 


Se Ve Ve 


. 


CRPNL OR AUTRE OR 
Oo © Oo US & ON & ON 


s. 


08100E101E111E00 
181412111F111100 
0F11110F11110F00 
0E11010101110E00 
0F11111111110F00 
1F01010F01011F00 
1F01010F01010100 
0E11010119111E00 
1111111F11111100 
0702020202020700 
1C08080808090600 
1109050305091100 
0101010101010F00 
4163554941414100 
4143454951614100 
0E11111111110E00 
0F11110F01010100 
0E111111i5091600 
0F11110F05091100 
0E11010E10111C00 
1F04040404040400 
1111111111110E00 
11111111110A0400 
4141414955634100 
11110A040A111100 ;X 


te Ve Ve Vo Ve Ve Ne Ve Ve Se 


% 


Ve Ve Ve Ve Ye 


Ve Ve Ve Ve Ve 


LG URDO VO ZE X CNE OO 9 Em © Q & > à 


LOI 
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MINUS 


* Tables 


VERTL 


VERTH 





1111110A04040400 
1F10080402011F00 ;Z 
0205020000000000 ;° 
00000E01010E0402 ;ç 
0E01060906080700 ;$ 
040A110000000000 ;° 
000000000000000F 


v. 


0102040000000000 ;° 
000006080E090E00 
0101010709090700 
00000E0101010E00 
0808080E09090E00 ; 
0000060907010E00 ; 
040A020207020200 
00000E09090E0806 
0101010705090900 
0200030202020700 ;i 
08000C0808080906 
0101090503050900 
0302020202020700 ;1 
00001B1515111100 
0000070909090900 
0000060909090600 
0000070909070101 
00000E09090E0808 
00000D0301010100 
00000E0106080700 
02020F0202020C00 
00000909090D0B00 
00001111110A0400 
0000111115151B00 
0000110A040A1100 
000009090E080807 
00001F0804021F00 
080406090F010E00 
0204001111191600 ;ù 
040806090F010E00 ;è 
0500000000000000 ;” 
OFOFOFOFOFOFOFOF ; 


‘€ 
‘u 
:V 
‘Ww 
sx 
°Y 
°2 
sé 


le calcul de HBAS 


0000000000000000 
8080808080808080 
0000000000000000 
8080808080808080 
0000000000000000 
8080808080808080 
0000000000000000 
8080808080808080 
2828282828282828 
AB8A8A8A8A8A8A8A8 
2828282828282828 
AB8A8A8A8A8A8A8A8 
2828282828282828 
A8A8A8A8A8A8A8A8 
2828282828282828 
AB8AB8A8A8AB8A8A8A8 
5050505050505050 
DODODODODODODODO 
5050505050505050 
DODODODODODODODO 
5050505050505050 
DODODODODODODODO 
5050505050505050 
DODODODODODODODO 
2024282C3034383C 


* Largeur de 


LGPONC DFB 
DFB 
LGMAJUS  DFB 
DFB 
LGMINUS DFB 
DFB 
MO DS 
M1 DS 
QUOTIENT DS 
RESTE DFB 
DGTL DS 
DGTH DS 
COMPLEMENT DS 
EMPAT DS 
ORDL DS 
ORDH DS 
ABS DS 
LENGTH DS 
ECCO DFB 


LS T4 
ProDOS 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 























2024282C3034383C 
2125292D3135393D 
2125292D3135393D 
22262A2E32363A3E 
22262A2E32363A3E 
23272B2F33373B3F 
23272B2F33373B3F 
2024282C3034383C 
2024282C3034383C 
2125292D3135393D 
2125292D3135393D 
22262A2E32363A3E 
22262A2E32363A3E 
23272B2F33373B3F 
23272B2F33373B3F 
2024282C3034383C 
2024282C3034383C 
2125292D3135393D 
2125292D3135393D 
22262A2E32363A3E 
22262A2E32363A3E 
23272B2rF33373B3F 
23272B2F33373B3F 


toutes les lettres 


nb hi © k bb 
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Source T.WRITE560.DEMO 


Assembleur Merlin/BigMac 


SET80COL 
TXTCLR 
MIXCLR 
HIRES 
SETAN3 
CLRHRI 
SETHR2 
SETHR3 


* lit le 


* Passe en mode graphique 560*192 


DEBUT 


EFF3 


EFF4 


LST OFF 
ORG $1000 


= $CO00D 
L $CO050 
L $co52 
= $co57 
= $CO5E 
= $COB2 
= $COB5 
= $C0B7 


UMP  DEBUT 


fichier principal 


PUT WRITES560 


STA SET80COL 
STA MIXCLR 
STA HIRES 
STA TXTCLR 
STA SETAN3 
STA CLRAHRI 
STA SETHR2 
STA SETHR3 
STA TXTPAGEI!l 


et affiche un fond gris 


LDX £0 
LDY £0 
JSR GETX 
TYA 

PHA 

LSR 

TAY 

BCS EFF3 


STA TXTPAGE2 
LDA COULEUR 
STA (HBAS),Y 
STA TXTPAGEl 
PLA 

TAY 

INY 

TYA 

PHA 

LSR 

TAY 

BCS EFF4 

STA TXTPAGE2 
LDA  COULEUR+1 
STA  (HBAS),Y 
STA TXTPAGEIl 
PLA 

TAY 
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EFF6 


EFF7 


EFF8 


EFFIN 


* Envoie 


£80 
EFF2 


£192 
EFFIN 


£0 
GETX 


EFF7 
TXTPAGE2 
COULEUR 
(HBAS),Y 
TXTPAGE1 


EFF8 
TXTPAGE2 
COULEUR 
(HBAS), Y 
TXTPAGE1 


£80 
EFF6 


£192 
EFF1 


messages à l'écran... 


£ <MESSAGEO 
£>MESSAGEO 
CHROUT1+1 
CHROUT1+2 
£2 
ESPACE+1 
£20 

£10 

£0 


CHROUT 


£<MESSAGE1 
£>MESSAGE1 
CHROUT1+1 
CHROUT1+2 
£S 
ESPACE+1 


CHROUT 


£<MESSAGE2 
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LDY £>MESSAGEZ2 STA CHROUTI1+1 


STA CHROUT1+1 STY CHROUT1+2 
STY CHROUT1+2 LDA £2 

LDA £0 STA ESPACE+1 
STA ESPACE+1 CLC 

CLC USR CHROUT 
JSR CHROUT RTS 

LDA £<MESSAGE3 

LDY £>MESSAGE3 COULEUR DFB 0,0 





MESSAGEO ASC “Démonstration d'écriture avec espacement normal"8D00 


MESSAGEL ASC "Démo. avec 5 points pour chaque espace entre" 
ASC " les lettres"8D00 
MESSAGEZ2 ASC "Démo. sans espaces entre les lettres"8D00 
MESSAGE3 ASC "Démo. de tous les caractères que l'on peut obtenir" 
ASC " à partir du clavier"8D 
ASC "DEMO : ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnop" 
ASC "qgrstuvwxyz1234567890&é" (Sèlçà)-'$"*ù $£,;:=?7./+<>" 
HEX 00 
L4 Li . 
Récapitulation 10E8:16 FO OC CA OA 48 OA 2E 1228:0E 00 02 03 02 02 02 02 
WRITE560 DEMO 10F0:8A 16 68 EO 00 DO F4 8D 1230:07 00 0E 11 10 OC 02 O1 
. 10F8:07 11 AD 86 16 4A A8 BO 1238:1F 00 1F 10 08 OC 10 11 
1100:03 8D 55 CO B1 26 49 FF 1240:0E 00 08 OC OA 09 1F 08 
Après avoir saisi ce 1108:91 26 8D 54 CO AE 86 16 1248:08 00 1F 01 OF 10 10 11 
code sous moniteur, 1110:E8 8A 4A A8 BO 03 8D 55 1250:0E 00 1C 02 01 OF 11 11 
Vous le sauvegarderez 1118:C0 B1 26 4D 8A 16 91 26 1258:0E 00 1F 10 08 04 O2 02 
a : 1120:8D 54 CO 68 AA E8 EO CO 1260:02 00 0E 11 11 0E 11 11 
BSAVE WRITE560.DEMO, 1128:F0 09 AC 90 16 C8 CC 8F 1268:0E 00 0E 11 11 1E 10 08 
A$1000,L$8AB 1130:16 DO A4 60 BD 62 15 85 1270:07 00 00 03 03 00 03 03 
1138:27 BD A2 14 85 26 60 DB 1278:00 00 00 00 02 00 02 02 
1000:4C 91 16 90 09 8D 8E 16 1140:A9 00 8D 84 16 8D 85 16 1280:01 00 08 04 02 O1 O2 04 
1008:8E 8C 16 8C 8D 16 AD FF 1148:8D 86 16 AD 89 16 DO 0OB 1288:08 00 00 00 07 00 07 00 
1010:FF FO 13 C9 8D FO 10 C9 1150:AD 88 16 C9 07 BO 04 8D 1290:00 00 01 02 04 08 04 02 
1018:A0 90 1D C9 CO 90 24 c9 1158:87 16 60 EE 86 16 AD 84 1298:01 00 1E 33 30 18 OC O0 
1020:E0 90 37 4C 71 10 60 AD 1160:16 18 69 O7 8D 84 16 90 12A0:0C 00 08 10 0E 10 1E 11 
1028:8E 16 18 69 OA 8D 8E 16 1168:03 EE 85 16 AD 85 16 CD 12A8:1E 00 18 14 12 11 1F 11 
1030:A9 00 8D 8C 16 8D 8D 16 1170:89 16 DO E7 AD 88 16 CD ‘12B0:11 00 OF 11 11 OF 11 11 
1038:EE OF 10 DO 03 EE 10 10 1178:84 16 90 OC 38 ED 84 16 12B8:0F 00 0E 11 O1 O1 O1 11 
1040:4C 0E 10 38 E9 AO 48 A9 1180:C9 07 BO D7 8D 87 16 60 12C0:0E 00 OF 11 11 11 11 11 
1048:A2 85 FA A9 11 85 FB 68 1188:AD 84 16 38 ED 88 16 8D 12C8:0F 00 1F 01 01 OF 01 O1 
1050:A8 B9 22 16 8D 8B 16 4C 1190:96 11 A9 07 38 E9 FF C9 12D0:1F 00 1F 01 01 OF 01 O1 
1058:85 10 38 E9 CO 48 A9 A2 1198:07 BO CO CE 86 16 8D 87 12D8:01 00 OE 11 01 01 19 11 
1060:85 FA A9 12 85 FB 68 A8 11A0:16 60 00 00 00 00 00 00 12E0:1E 00 11 11 11 1F 11 11 
1068:B9 43 16 8D 8B 16 4C 85 11A8:00 00 O1 O1 01 O1 O1 00 12E8:11 00 07 02 02 02 02 02 
1070:10 38 E9 EO 48 A9 A2 85 11B0:01 00 05 05 05 00 00 00 12F0:07 00 1C 08 08 08 08 09 
1078:FA A9 13 85 FB 68 A8 B9 11B8:00 00 OC 02 02 07 02 02 12F8:06 00 11 09 05 03 05 09 
1080:63 16 8D 8B 16 98 OA OA 11C0:1D 00 04 1E 05 0E 14 OF 1300:11 00 O1 01 O1 O1 O1 01 
1088:0A 18 65 FA 85 FA 90 02 11C8:04 00 03 13 08 04 02 19 1308:0F 00 41 63 55 49 41 41 
1090:E6 FB A9 08 8D 8F 16 20 11D0:18 00 02 05 05 02 15 09 1310:41 00 41 43 45 49 51 61 
1098:BF 10 AD 8B 16 18 69 O2 11D8:16 00 06 06 02 01 00 00 1318:41 00 O0E 11 11 11 11 11 
10A0:6D 8C 16 8D 8C 16 90 03 11E0:00 00 04 02 01 O1 O1 02 1320:0E 00 OF 11 11 OF 01 01 
10A8:EE 8D 16 AD 8D 16 C9 02 11E8:04 00 O1 02 04 04 04 02 1328:01 00 OE 11 11 11 15 09 
10B0:D0 OA AD 8C 16 C9 2A 90 11F0:01 00 04 15 OE 04 OE 15 1330:16 00 OF 11 11 OF 05 09 
10B8:03 4C 27 10 4C 38 10 8D 11F8:04 00 00 04 04 1F 04 04 1338:11 00 OE 11 01 OE 10 11 
10C0:54 CO AD 8E 16 AA AD 8C 1200:00 00 00 00 00 06 06 02 1340:1C 00 1F 04 04 04 04 04 
10C8:16 8D 88 16 AD 8D 16 8D 1208:01 00 00 00 00 07 00 00 1348:04 00 11 11 11 11 11 11 
10D0:89 16 20 3F 11 AO 00 20 1210:00 00 00 00 00 00 00 03 1350:0E 00 11 11 11 11 11 OA 
10D8:34 11 8C 90 16 8A 48 A9 1218:03 00 00 10 08 04 02 01 1358:04 00 41 41 41 49 55 63 
10E0:00 8D 8A 16 B1l FA AE 87 1220:00 00 0E 11 19 15 13 11 1360:41 00 11 11 OA O4 OA 11 
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1368:11 00 11 11 11 OA O4 O4 1558:50 50 DO DO DO DO D9 DO 1748:A0 17 8D OF 10 8C 10 10 
1370:04 00 1F 10 08 04 O2 01 1560:D0 DO 20 24 28 2C 30 34 1750:A9 00 8D 9F 10 18 20 03 
1378:1F 00 02 05 02 00 00 00 1568:38 3C 20 24 28 2C 30 34 1758:10 A9 00 AO 18 8D OF 10 
1380:00 00 00 00 CE 01 O1 0E 1570:38 3C 21 25 29 2D 31 35 1760:8C 10 10 A9 02 8D 9F 10 
1388:04 02 0E 01 06 09 06 08 1578:39 3D 21 25 29 2D 31 35 1768:18 20 03 10 60 00 00 C4 
1390:07 00 04 OA 11 00 00 00 1580:39 3D 22 26 2A 2E 32 36 1770:FB ED EF EE F3 F4 F2 El 
1398:00 00 00 00 00 00 00 00 1588:3A 3E 22 26 2A 2E 32 36 1778:F4 E9 EF EE AO E4 A7 FB 
13A0:00 OF O1 02 04 00 00 00 1590:3A 3E 23 27 2B 2F 33 37 1780:E3 F2 E9 F4 F5 F2 E5 A0 
13A8:00 00 00 00 06 08 0E 09 1598:3B 3F 23 27 2B 2F 33 37 1788:E1 F6 E5 E3 AO E5 F3 FO 
13B0:0E 00 01 01 O1 07 09 09 15A0:3B 3F 20 24 28 2C 30 34 1790:E1 E3 E5 ED E5 EE F4 A0 
13B8:07 00 00 00 0E 01 O1 01 15A8:38 3C 20 24 28 2C 30 34 1798:EE EF F2 ED El EC 8D 00 
13C0:0E 00 08 08 08 0E 09 09 15B0:38 3C 21 25 29 2D 31 35 17A0:C4 FB ED EF AE A0 El F6 
13C8:0E 00 00 00 06 09 07 0i 15B8:39 3D 21 25 29 2D 31 35 17A8:E5 E3 AO B5 AO FO EF E9 
13D0:0E 00 04 OA 02 02 07 02 15C0:39 3D 22 26 2A 2E 32 36 17B0:EE F4 F3 AO FO EF F5 F2 
13D8:02 00 00 00 0E 09 09 0E 15C8:3A 3E 22 26 2A 2E 32 36 17B8:A0 E3 E8 El F1 F5 E5 A0 
13E0:08 06 01 01 01 07 09 09 15D0:3A 3E 23 27 2B 2F 33 37 17C0:E5 F3 FO El E3 E5 AO E5 
13E8:09 00 02 00 03 02 02 02 15D8:3B 3F 23 27 2B 2F 33 37 17C8:EE F4 F2 E5 AO EC E5 F3 
13F0:07 00 08 00 OC 08 08 08 15E0:3B 3F 20 24 28 2C 30 34 17D0:A0 EC E5 F4 F4 F2 E5 F3 
13F8:09 06 01 01 09 05 03 05 15E8:38 3C 20 24 28 2C 30 34 17D8:8D 00 C4 FB ED EF AE A0 
1400:09 00 03 02 02 02 02 02 15F0:38 3C 21 25 29 2D 3i 35 17E0:F3 El EE F3 A0 E5 F3 F0 
1408:07 00 00 00 1B i5 15 11 15F8:39 3D 21 25 29 2D 31 35 17E8:E1 E3 ES F3 AO E5 EE F4 
1410:11 00 00 00 07 09 09 09 1600:39 3D 22 26 2A 2E 32 36 17F0:F2 E5 A0 EC ES F3 AO EC 
1418:09 00 00 00 06 09 09 09 1608:3A 3E 22 26 2A 2E 32 36 17F8:E5 F4 F4 F2 E5 F3 8D 00 
1420:06 00 00 00 07 09 09 07 1610:3A 3E 23 27 2B 2F 33 37 1800:C4 FB ED EF AE AO E4 E5 
1428:01 01 00 00 OE 09 09 CE 1618:3B 3F 23 27 2B 2F 33 37 1808:A0 F4 EF F5 F3 AO EC E5 
1430:08 08 00 00 OD 03 O1 01 1620:3B 3F 05 01 03 05 05 05 1810:F3 AO E3 El F2 El E3 F4 
1438:01 00 00 00 0E 01 06 08 1628:05 03 03 03 05 05 03 03 1818:FD F2 E5 F3 AO F1 F5 ES 
1440:07 00 02 02 OF 02 02 02 1630:02 05 05 03 05 05 05 05 1820:A0 EC A7 EF EE AO FO ES5 
1448:0C 00 00 00 09 09 09 OD 1638:05 05 05 05 02 02 04 03 1828:F5 F4 A0 EF E2 F4 E5 EE 
1450:0B 00 09 00 11 11 11 OA 1640:04 06 05 05 05 05 05 05 1830:E9 F2 AO CO AO FO El F2 
1458:04 00 00 00 11 11 15 15 1648:05 05 05 05 03 05 05 04 1838:F4 E9 F2 AO E4 F5 AO E3 
1460:1B 00 00 00 11 OA O4 OA 1650:07 07 05 05 05 05 05 05 1840:EC El F6 E9 E5 F2 8D C4 
1468:11 00 00 00 09 09 OE 08 1658:05 05 07 05 05 05 03 07 1848:C5 CD CF A0 BA A0 Ci © 
1470:08 07 00 00 1F 08 04 02 1660:03 05 05 05 04 04 04 04 1850:C3 C4 C5 C6 C7 C8 C9 CA 
1478:1F 00 08 04 06 09 OF 01 1668:04 04 04 04 03 04 04 03 1858:CB CC CD CE CF DO DI D2 
1480:0E 00 02 04 00 11 11 19 1670:05 04 04 04 04 04 04 04 1860:D3 D4 D5 D6 D7 D8 D9 DA 
1488:16 00 04 08 06 09 OF 01 1678:04 04 05 05 05 04 05 05 1868:A0 Eli E2 E3 E4 E5 E6 E7 
1490:0E 00 05 00 00 00 00 00 1680:05 05 05 05 00 00 00 00 1870:E8 E9 FA EB EC ED EE EF 
1498:00 00 OF OF OF OF OF OF 1688:00 00 00 00 00 00 00 00 1878:F0 F1 F2 F3 F4 F5 F6 F7 
14A0:0F OF 00 00 00 00 00 00 1690:00 8D OD CO 8D 52 CO 8D 1880:F8 F9 FA B1 B2 B3 B4 B5 
14A8:00 00 80 80 80 80 80 80 1698:57 CO 8D 50 CO 8D 5E CO 1888:B6 B7 E8 B9 BO A6 FB A7 
14B0:80 80 00 CO 00 00 00 00 16A0:8D B2 CO 8D B5 CO 8D B7 1890:A8 DD FD Ai DC CO A9 AD 
14B8:00 00 80 80 80 80 80 80 16A8:C0 8D 54 CO A2 00 AO 00 1898:DE A4 FE AA FC EO A5 A3 
14C0:80 80 00 00 00 00 00 00 16B0:29 34 11 98 48 4A A8 BO 18A0:AC BB BA BD BF AE AF AB 
14C8:00 00 80 80 80 80 80 80 16B8:03 8D 55 CO AD 6D 17 91 18A8:BC BE 00 

14D0:80 80 00 00 090 00 00 00 16C0:26 8D 54 CO 68 A8 C8 98 : 
14D8:00 00 80 80 80 80 80 80 16C8:48 4A A8 BO 03 8D 55 CO TPom S 
14E0:80 80 28 28 28 28 28 28 16D0:AD 6E 17 91 26 8D 54 CO 

14E8:28 28 A8 A8 A8 A8 A8 A8 16D8:68 A8 C8 CO 50 DO D4 E8 TPom's, programme du numéro 
14F0:A8 AB 28 28 28 28 28 28 16E0:E0 CO FO 36 AO 00 20 34 précédent vous cause peut-être des 
14F8:28 28 A8 A8 A8 A8 A8 A6 16E8:11 98 48 4A A8 BO 03 8D soucis sur votre Apple //c. Trois 
1500:A8 A8 28 28 28 28 28 28 16F0:55 CO AD 6D 17 91 26 8D octets méritent un changement pour 
1508:28 28 A8 AB AB AB AB A8 16F8:54 CO 68 AB CB 98 48 42 A Le NS 
1510:A8 A8 28 28 28 28 28 28 1700:A8 BO 03 8D 55 CO AD 6D rt 

1518:28 28 A8 A8 A8 A8 A8 A8 1708:17 91 26 8D 54 CO 68 A8 DO4C: 4C 55 20 

1520:A8 A8 50 50 59 50 50 50 1710:C8 CO 50 DO D4 E8 EO CO BSAVE T.POMS,A$2000,L4033 
1528:50 50 DO DO DO DO DO DO 1718:D0 94 A9 6F AO 17 8D OF 

1530:D0 DO 50 50 50 50 50 50 1720:10 8C 10 10 A9 02 8D 9F Un couper/coller un peu violent nous a 
1538:50 50 DO DO DO DO DO DO 1728:10 A9 14 A2 CA AO 00 38 conduit à un humour involontaire : 
1540:D0 DO 50 50 50 50 50 50 1730:20 03 10 A9 AO A0 17 8D l'article précise que la carte Super 
1548:50 50 DO DO DO DO DO DO 1738:0F 10 8C 10 10 A9 05 8D Série Apple est nécessaire sur le //c.. 
1550:D0 DO 50 50 50 50 50 50 1740:9F 10 18 20 03 10 A9 DA 

















| otre micro-serveur fonc- 
tionne et vous avez 
décidé de réaliser 
quelques belles pages de 
menus à l'exemple des 
serveurs professionnels. 
Muni des normes 
Vidéotex et de votre 
traitement de texte 
favori, vous vous êtes 
attelé à l'ouvrage. 
Aïe! Quelle besogne de 
bénédictin ! 

Le programme CP/M édité par 
Pom's simplifie grandement la 
réalisation de telles pages . 





Le programme ÉDITEUR 


Les éditeurs Vidéotex peuvent se 
subdiviser en deux catégories : 


+ les éditeurs statiques 
+ _ les éditeurs dynamiques. 


Pour les différencier, observez les 
mouvements du curseur. S'il balaye 
laborieusement l'écran comme le spot d'une 
image TV, de gauche à droite et de haut en 
bas, alors il s'agit probablement d'un 
éditeur statique. Au contraire, s'il se 
promène allègrement dans toutes les 
directions, alors il s'agit d'un éditeur 
dynamique. Ce type d'éditeur permet un 
effet d'animation, un peu comme le peintre 
dessine sur sa toile. Il est possible de 
simuler par exemple le déplacement d'un 
petit objet sur l'écran. Notre éditeur est de 


type dynamique. 


l'est écrit en Turbo-Pascal (CP/M) et 
fonctionne sur Apple //e et sur Apple ]{+ 
avec une carte 80 colonnes et une carte 
Z80. 


On peut l'utiliser avec un ou deux lecteurs 
de disquettes, avec pour inconvénient si 
vous n'avez qu'un seul lecteur que les images 
seront sauvegardées sur la disquette 
programme. 





Un nouveau produit Pom's 


Utilisation, possibilités 


Le déplacement du curseur est commandé 
par les touches fléchées (gauche, droite, 
bas, haut). Sur l'Apple J[+, les 
déplacements vers le haut et vers le bas 
s'obtiennent par CTRL-K et CTRL-J. À 
tout moment, la position du curseur, 
horizontale et verticale, est mise à jour sur 
le tableau de bord. 


Une fois le curseur en place, que peut-on y 
écrire ? Du texte ou du graphique, c'est 
l'objet de l'une de commandes clavier. 


Il faut alors fixer des attributs qui 
diffèrent selon le mode : 


Mode texte 


la couleur du caractère (Noir, Bleu, 
Rouge, Magenta, Vert, Cyan, Jaune, 
Blanc) ; 


- la couleur du fond ; 
la fixité ou le clignotement ; 

- l'inversion de fond, encore appelée 
positif/négatif ; 
le soulignement ; 


- la taille du caractère : 
+ taille normale 
+ taille double 
+ hauteur et largeur double. 


Mode graphique 

la couleur du caractère : 
- la couleur du fond : 
-_ le clignotement ; 

la disjonction. 


Lors du déplacement du curseur, les 
attributs courants peuvent êre préservés 
ou détruits, c'est au choix. 


Presque tous les caractères d'un clavier 
AZERTY et d'un clavier Minitel sont 
accessibles. Ceci n'est possible qu'en 
attribuant à une même touche plusieurs 
significations selon : 


- Sa position, ‘shiftée’ ou non ‘shiftée’ : 


- Son rangement dans les caractères 
accentués ou dans les caractères 


spéciaux. 





On peut obtenir : 
&é$èça 1412 %Ù£L34#]|\]_ 
°"#Æ0Q 


À tout moment on peut simuler l'envoi de 
l'image sur le Minitel pour contrôle. 


Les corrections sont possibles de deux 

manières : 

* caractère par caractère, à l'aide de la 
flèche gauche ou de la touche Del. 
Attention cependant à certains 
attributs qui ne sont pas modifiés 
(couleur de fond et soulignage) ; 


* par effacement (Ctri-X) du dernier 
bloc entré avant le dernier 
positionnement du curseur. 


Enfin — charme de notre éditeur dynamique 
- on peut inclure dans le fichier des 
commandes ou des caractères 
non-standard : 


un effacement d'écran entre deux 
images successives ; 

une sonnerie pour prévenir par exemple 
d'une erreur ; 


un caractère où une séquence de 
caractères ASCII indisponibles au 
clavier. Les codes ASCII de 32 à 127 
sont autorisés. Ceci permet 
théoriquement de disposer de tous les 
effets Vidéotex à condition d'en 
connaître la norme. 


Un même fichier peut regrouper une 
succession d'images séparées par des 
effacements d'écran ou par des 
effacements partiels donnant un effet 
d'animation. 

Inversement, un fichier-image sur disquette 
peut être rappelé en mémoire et visualisé 
sur l'écran. 


Editeur Vidéotex : 
200,00 F TTC Franco, 
‘sources’ compris. 

Bon de commande page 75 
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C.L.M. & BBDO 


On trouve plus facilement 
avec 10 ans 


Certaines évolutions sont aussi 
importantes que des révolutions. 








Le plus difficile quand on débute, 


c'est de débuter. Car toutes les 
propositions d'emploi demandent une 
certaine expérience. Chercher un 
emploi est donc un problème 
insoluble. Pas pour l'Apple IIGs, il 
débute avec 10 ans d'expérience. 
Comment? C’est très simple, 
il a une architecture double : un 
nouvel ordinateur puissant traitant 
le graphique et le son, entoure 
un Apple II classique et miniaturisé. 
Il profite ainsi de 10 ans de 
développement de logiciels et 
d'expérience. Un grand progrès réalisé 
en partie grâce au microprocesseur 
65C816, un 16 bits descendant du 
65C02 de l'Apple II. L'Apple IGs fonc- 
tionne à deux vitesses : 2,8 MHz en 
mode natif; en mode émulation 
(c'est-à-dire lorsque vous utilisez un 


programme de votre ancien Apple 11) 
vous avez le choix entre 1 MHz et 
2,8 MHz. 


Débuter connu, c'est 16.000 propositions 
d'emploi. 


Avec l'IWM (Integrated Woz 
Machine*) l'Apple IIGs peut recevoir 
indifféremment des lecteurs de 
disquettes 3,5 pouces 800 Ko ou des 
ecteurs 5,25 pouces 140 Ko, ou les 
faire cohabiter, ce qui contribue à vous 
faire profiter de la plus grande 
)ibliothèque de logiciels du monde. Le 
nombre de 16.000 logiciels étant estimatif 
car la seule chose qu'un Apple IIGs soit 
incapable de calculer, c’est le nombre 
d'emplois qu’il est capable de tenir. 

Avec le nouveau système 
d'exploitation ProDOS, l'Apple IIGs 
permet la hiérarchisation des fichiers 
et des catalogues à la manière de 








bommage à Steve Wozniak, co fondateur de la Scie 















) 


expérience. 


Macintosh, et la connexion de 
nouveaux périphériques. 


G ets, cela veut dire Graphique et son. 





L'imagination débridée des 
développeurs suffira-t-elle pour utiliser 
les 4096 nuances de couleurs 
disponibles ? C’est probable. Ce qui est 
certain, c'est qu'une résolution de 640 
points sur 200 lignes pour 4 couleurs, 
320 points sur 200 lignes pour 16 
couleurs va donner beaucoup de relief 
à certaines démonstrations. Si vous 
DS Couleur Fest One n'en croyez pas VOs yeux, vous n’en 

pu croirez pas vos oreilles non plus. Le 
coprocesseur “son” choisi par 
Apple a déjà une brillante carrière 
derrière lui puisqu'il est employé par 
les plus grands synthétiseurs du 
marché. C’est l'ENSONIQ, capable de 
générer 16 voix, 














Apple présente l'Ap 


un emploi quand on débute 


et il ne lui manque même pas la parole. 


Les relations nécessaires pour réussir. 





En 10 années, l'Apple II a eu tout 
le loisir de se faire d’excellentes relations 
detravail, imprimante, modem, disque 
dur, que l'Apple IIGs continuera à 
entretenir et développer ; celui-ci peut 
désormais être connecté au réseau 
AppleTalk et gérer la Laser Writer 
réservée jusqu'à présent à Macintosh. Il 
peut aussi recevoir le disque dur SCSI. 

L'ApplelI6s possède 7 connecteurs 
d'extension permettant, à l’aide d’une 
multitude de cartes d'interfaces, de le 


relier à tous les types d'unités périphériques. 


Acheter un Apple, c'est entrer dans 
le Club Apple pour échanger des informa- 
tions, accéder au support technique par 
téléphone 7 jours sur 7, ou aux services 
télématiques du Club. 


e IIGS. 





0 Apple, Apple 1165, ProDOS, Macintosb, Apple Talk, LaserWriter et GS Paint sont des marques déposées par Apple Computer Inc. 


SO LES 
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riter + est un 
logiciel de traite- 
ment de texte de 
‘‘2EME généra- 
tion”, proposé par 
A.C.I., qui nous a 
déjà apporté 4ème 
dimension. 


Comme la plupart des logiciels 
protégés, Writer + est copiable et 
peut être installé sur disque dur, 
sachant que, lors du démarrage, 
la disquette originale devra être 
temporairement introduite (dans 
ce cas particulier, de façon 
aléatoire). 


Il peut tourner sur Macintosh 
512Ko ou sur MacPlus, mais 
n'essayez pas de le faire 
fonctionner sur un “antique” 
Macintosh 128Ko. En fait, nous 
conseillons vivement le MacPlus. 
Qu'en est-il des nouveaux 
modèles de Macintosh ? L'Echo 
des Apple (N° 5, spécial 
Macintosh), classe Writer + dans 
les compatibles Macintosh SE. 


Writer + possède toutes les 
fonctions classiques de traitement 
de textes, avec des avantages et 
des facilités par rapport à 
d'autres, avec aussi des 
inconvénients. Notre analyse ne 
sera pas approfondie sur ces 
fonctions classiques, mais nous 
insisterons sur tout ce qui fait que 
Writer + se présente comme un 
représentant de ce que nous 
avons appelé la 2€ génération. 








Vriter 


Philippe Mathieu 


En effet, Writer + possède d'une 
part des fonctions sophistiquées 
de traitement de texte, d'autre part 
un certain nombre de fonctions de 
mise en page faisant que, si on ne 
désire pas une mise en page trop 
complexe, ce seul logiciel permet 
des réalisations intéressantes en 
micro-édition. 


Writer + est multi-fenêtres, le 
nombre de fenêtres n'étant pas 
limité, et on peut ouvrir à l'écran 
plusieurs documents ou 
exemplaires du même document, 
de façon à pratiquer des 
Copier/Coller entre fenêtres. Le 
document voulu peut être activé à 
partir du menu Fichier 
(contrairement à une habitude qui 
est de créer un menu spécial 
Ecran, comme dans Excel par 
exemple). 


Writer + autorise la redéfinition 
de “raccourcis” au clavier, 
propres à l'utilisateur. Si cette 
solution est séduisante, elle est 
aussi dangereuse. En effet, rien 
n'interdit (bien que l'utilisateur en 
soit avisé) d'utiliser pour une 
commande Writer + un raccourci 
classiquement utilisé dans les 
commandes habituelles, comme 


par exemple $C ou #X. 


Un document peut, en largeur, 
occuper presque toute la place 
disponible dans le format de 
papier choisi. Par exemple, en 
format A4, la règle est graduée 
jusqu'à 20 centimètres. 


Les fonctions de 
traitement de textes 
classiques 


Writer +, comme la plupart de ses 
concurrents, propose au démar- 
rage une règle sur laquelle 
peuvent être positionnés 
margeurs, marqueur d'indenta- 
tion et tabulateurs. 


Les différentes options de choix 
(polices de caractères, tailles et 
styles) sont accessibles par les 
menus Typo et Style. 


Certaines commodités sont 
offertes, pour le déplacement “à 
la main” de paragraphes ou 
d'images, ou encore pour les 
recherches et remplacements qui 
peuvent porter non seulement sur 
des mots ou groupes de mots, 
mais sur les caractères, tailles et 
styles. 


On peut, en une seule opération, 
modifier simultanément les 
caractères, leur taille et leur style. 
On peut aussi effectuer un 
basculement majuscules/ 
minuscules. Plusieurs options 
sont proposées, et le maniement 
en est parfois délicat, selon qu'on 
unifie totalement le transfert ou 
qu'on procède différemment 
pour, par exemple, les 
majuscules après un point. 


Un traitement statistique associé 
permet à tout moment de savoir 
quelle est la dimension du 
document en cours de création, 
ou d'une sélection de celui-ci, 
avec diverses informations sur les 
signes, mots et lignes. 


Fonctions avancées de 
traitement de textes 


Comme c'est le cas dans la 
plupart des nouveaux logiciels de 
traitement de texte, Writer + offre 
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une panoplie d'outils facilitateurs. 


La césure automatique permet de 
couper un mot en fin de ligne 
selon les règles de la syntaxe 
française. Deux commodités sont 
offertes : 


— forcer la césure par un trait 
d'union ; 

— à l'inverse, refuser la césure, 
par exemple pour éviter de 
couper en deux “Macintosh”. 


Un glossaire très puissant est 
associé au logiciel. Les 
expressions du glossaire, qui ne 
sont théoriquement pas limitées 
en taille, sont désignées par un 
jeu d'abréviations libres. 


Le texte peut être disposé en 
colonnes. Le nombre de colonnes 
n'est limité que par la largeur du 
papier, une colonne ne pouvant 
pas avoir moins de 1 cm de 
largeur (la documentation dit 1,5 
environ...), et les colonnes sont 
forcément d'égales largeurs. La 
mise en place de ces colonnes est 
particulièrement aisée, ainsi que 
la modification de leur nombre. Il 
est possible de créer un “saut de 
colonne” forcé, au même titre 
qu'un saut de page. L'équilibrage 
du remplissage des colonnes est 
automatique. 


Les colonnes constituent aussi un 
moyen détourné de placer côte à 
côte du texte et des illustrations, 
lesquelles peuvent provenir 
classiquement d'un album. Nous 
verrons plus loin une autre 
solution. 


Un système de cadres permet de 
réaliser, dans des styles variés, 
l'entourage total ou partiel de 
paragraphes, colonnes, en-têtes et 
pieds de page, zone de notes, 
page entière, etc. 


La gestion des notes de bas de 
page est assez sophistiquée, avec 
numérotation automatique et 
remise en page lors des 
modifications du texte. 


Fonctions “insolites”? 


Les calculs 
Grande originalité, Writer + 





possède des fonctions de calcul 
associées, dont le maniement 
n'est pas exagérément complexe, 
et qui offrent des possibilités 
intéressantes (beaucoup plus 
vastes que celles offertes par 
More). On passe par la création 
de cellules, en organisant ainsi un 
petit tableur sur mesure dans le 
texte (une fonction d'interpré- 
tation permet aussi d'introduire 
des formules de calcul 
directement dans le texte, en 
demandant à Writer + de faire le 
reste) 


Nous avons particulièrement 
apprécié les possibilités de travail 
avec l'horloge du Macintosh. 


Les fichiers 


Un petit gestionnaire de fichier, 
simple et facile à mettre en 
œuvre, permet de faciliter les 
opérations de courrier person- 
nalisé. Il ne faut pas y voir plus, 
et croire qu'on va pouvoir se 
passer d'un outil plus 
perfectionné. 


Le lecteur ne sera pas surpris 
d'apprendre que ce fichier est 
compatible avec 4gîme 
dimension. 


La gestion d'images 


La gestion d'images est une 
grande originalité de Writer +, 
qui peut être très utile pour ceux 
qui manipulent couramment de 
nombreuses images : par 
exemple, tenue à jour d'un 
catalogue illustré, représentation 
de molécules, études de CAO, 
etc. 


Des planches pouvant comporter 
1 à 12 images peuvent être créées 
simplement, à partir d'illustra- 
tions type MacPaint ou 
MacDraw. Un fichier d'images 
peut comporter au maximum 10 
planches, mais le nombre de ces 
fichiers n'est pas limité. La 
séquence d'opérations à 
accomplir est particulièrement 
simple : 

— sélectionner la planche ; 
sélectionner l'image ; 

— coller sur le texte. 


À noter qu'il est ensuite possible 


EE ————————————————— 


de transformer l'image par 
déplacement ou changement de 
dimensions. 


La gestion de paragraphes 


Elle ressemble à la gestion 
d'images, fonctionnant par 
création de fichiers de 
paragraphes comportant au 
maximum 10 thèmes, avec 12 
paragraphes par thème. Chaque 
paragraphe peut comprendre 
jusqu'à 32 000 caractères. Ceci 
venant en plus du glossaire, et le 
nombre de fichiers de 
paragraphes n'étant pas limité. 


La gestion de tableaux 


C'est une autre solution, plus 
souple et plus complète que la 
mise en colonnes, pour 
juxtaposer textes et illustrations et 
réaliser des tableaux où sont 
tracées lignes et colonnes. 


Fonctions 
de mise en page 


La création de structures 


Writer + propose une fonction 
particulièrement puissante : la 
hiérarchisation d'un texte en un 
certain nombre de niveaux 
chapitres, paragraphes, etc. 


La mise en niveaux se fait à partir 

d'une fenêtre de dialogue. Elle est 

toujours descendante et consiste 

à : 

- définir les 
eux-mêmes ; 

— définir pour chacun une 
typographie et une indentation ; 

— définir, si on le souhaite, une 
numérotation (6 possibilités 
sont offertes). 


niveaux 


Ensuite, il suffira, soit a priori, 
soit a posteriori, d'indiquer dans 
la fenêtre de dialogue que le texte 
sur lequel on travaille est de tel 
niveau pour que, automatique- 
ment, soient affectés les éléments 
prédéterminés pour ce niveau. 


De plus, la numérotation est 
automatiquement remise à jour 
(c'est parfois un peu long) pour 
tout le document, en cas de 
suppression ou d'ajout d'un 
élément ayant le statut choisi. 
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La création d'un sommaire 


Une fonction particulière permet 
de créer un sommaire à partir des 
niveaux définis, avec indication 
des numéros de page. 


La création d'un index 


On peut définir a priori une liste 
de mots qui devront faire l'objet 
d'un index alphabétique annexé 
au document. 


La liste étant créée, on invoque la 
fonction /ndex qui produit une 
liste d'index comportant pour 
chaque mot défini : 


— Ja liste des numéros des pages 
où il figure, séparés par des 
virgules ; 

— une inscription de ce numéro 
en italique et en gras si le mot 
figure plusieurs fois dans la 
page. 


La vérification de la mise 
en page 


Il est possible de faire apparaître à 
l'écran une page entière, pour 
contrôler la mise en page. On 
peut également afficher à l'écran 
plusieurs pages (uniquement pour 
voir l'allure générale, car bien 
entendu aucun texte n'est lisible 
dans ce cas). 


Apprendre Writer + 


De la lecture de ce qui précède, 
on peut déduire aisément que 
l'apprentissage de Writer + n'est 
pas immédiat. La documentation, 
claire, est parfois un peu trop 
succincte. Il manque un index 
alphabétique, de sorte qu'il est 
parfois bien difficile d'y retrouver 
ce qu'on veut. Ce d'autant plus 
que la table des matières est 
elle-même embryonnaire. Voici 
pourtant deux fonctions qu'offre 
Writer +... 


Nous conseillons à ceux qui 
abordent Writer + de ne pas 
chercher à réaliser du premier 
coup un apprentissage complet. 
C'est d'autant plus aisé qu'il est 
assez facile “d'ignorer” complè- 
tement certains thèmes, et de les 
aborder seulement quand les 
manipulations de base sont bien 
acquises. 

Par exemple, on peut ne jamais 





créer de hiérarchie et de 
sommaire. Mais on apprendra 
utilement à s'en servir quand le 
besoin s'en fera sentir. 


On peut aussi, pour commencer à 
placer des images, utiliser 
d'abord la technique classique du 
Copier/Coller, et apprendre 
ultérieurement à utiliser les 
fichiers d'images. 


Le débutant sera aidé dans cette 
tâche par les exercices progressifs 
proposés dans la documentation. 
En revanche, on peut déplorer 
l'absence d'un fichier 
d'assistance en ligne. 


Avantages, 
Faiblesses 


L'avantage principal de Writer +, 
c'est sa grande richesse 
fonctionnelle. Bien entendu, tous 
les éléments de cette richesse ne 
seront pas utiles à tous. 


Certains n'utiliseront Jamais les 
fichiers d'images, l'emploi de 
l'Album étant suffisant pour 
couvrir leurs besoins. A 
l'inverse, d'autres choisiront 
Writer + à cause de cette fonction 
particulière. 

Le fichier permettant le courrier 
personnalisé ne sera utilisé... que 
si on fait justement du courrier 
personnalisé ! Le glossaire sera 
suffisant pour certains, alors que 


d'autres auront un recours 
intensif aux fichiers de 
paragraphes. 


Au chapitre des faiblesses, on 
peut noter une surabondance de 
menus, obligeant d'ailleurs à des 
abréviations non classiques 
comme Fich ou Styl. Il n'est pas 
toujours aisé de mémoriser les 
fonctions qui entrent dans 
chacun. Et ceci n'empêche pas le 
recours fréquent (trop fréquent à 
notre goût) à des fenêtres de 
dialogue additionnelles. 


On peut s'interroger sur la 
véritable utilité des fonctions de 
calcul. Writer + aurait-il des 
ambitions d'intégré qui n'ose pas 
dire son nom ? Avec, déjà, un 
mini gestionnaire de fichier. 





La gestion de la marge gauche 
est. curieuse. Impossible de se 
bloquer complètement à gauche. 
Sans compter quelques 
irrégularités de fonctionnement à 
l'impression. 

Le réaffichage d'un écran 
complet, par exemple après 
modification de la typographie, 
est un peu long. Cela n'a 
toutefois rien de rhédibitoire. 


Avantage ou inconvénient ? La 
possibilité de définir des 
raccourcis propres à l'utilisateur 
est très séduisante. La possibilité, 
par cette méthode, de redéfinir les 
raccourcis des menus de base 
nous semble toutefois 
extrêmement dangereuse. 


Nous avons aussi vu quelques 
“bombes”, pas trop quand même 
pour un logiciel de venue récente. 
Beaucoup, si l'on considère que 
cette venue récente a eu lieu avec 
un retard de près d'un an sur les 
premières annonces. 


Conclusion 


D'abord, un bel effort pour un 
produit français de valeur 
internationale. Writer + est un des 
traitements de texte les plus 
puissants du marché, sinon le 
plus puissant, avec, pour seul 
vrai rival, Word 3 de Microsoft. 
De nombreux utilisateurs de 
micro-édition simple pourront se 
contenter de Writer +, sans faire 
appel à un logiciel spécialisé de 
mise en page. 


La vraie question est la suivante : 
vaut-il mieux un intégré rapide, 
divisant les fonctions pour traiter 
chacune d'elles de façon plus 
simple (mais avec, en corollaire, 
une moins grande facilité pour 
entre-croiser les diverses 
fonctions), ou un logiciel unique, 
mettant en permanence 
disposition de l'utilisateur toutes 
les fonctions dont il peut avoir 
besoin (avec, en corollaire, un 
maniement de l'ensemble un peu 
plus complexe) ? Writer + 
propose une réponse du second 
type, à l'utilisateur de juger. 


G 
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orsque l'on écrit un 
programme qui sera 
exécuté à l'aide d'un 
interpréteur Basic, il 
est préférable d'opter pour la 
concision afin de rendre le 
logiciel le plus efficace possible. 


Ceci encourage la multiplication 
des instructions sur une même 
ligne mais conduit généralement à 
une parfaite illisibilité. Avec un 
compilateur, et à moins d'être 
adepte d'une certaine forme 
d'ésotérisme, les programmes 
‘tassés’ ne présentent pas 
d'intérêt puisque la position de 
l'instruction par rapport au code 
‘source’ n'influe pas sur la 
vitesse de déroulement du 
logiciel. De plus, pendant la 
compilation, les messages 
d'erreur ne concernent que la 
première instruction incorrecte 
dans la ligne ; s'il y a trois 
instructions en faute, les deux 
dernières ne seront pas signalées. 


Si l'écriture d'un programme 
‘aéré’ est sans problème, il n'en 
va pas de même lorsqu'il s'agit 
de rendre lisible un programme 
créé dans l'optique d'une 
utilisation interprétée, les 
modifications manuelles se 
soldant généralement par des 
‘bugs’ difficilement localisables. 


Le but du petit programme — sans 
prétention — ici listé est donc de 
faire automatiquement ce travail 
fastidieux. Il traite les fichiers 
Basic en format TEXT (issus 
d'un éditeur de texte comme 
‘Edit’, du Basic Microsoft avec 
l'option ‘texte seul’, etc.) et 
génère un fichier décompacté, lui 
aussi en format TEXT, baptisé 
d'un nom correspondant à celui 
du fichier original auquel on 
ajoute le suffixe “.M” pour 
‘Modifié’. 












Éd 


Le temps nécessaire au traitement 
ne peut être formulé avec exacti- 
tude puisqu'il peut varier dans 








Julien Thomas 
+ 14 minutes avec le programme 


“Décompacteur” interprété ; 
+ 5 minutes avec le programme 


des proportions importantes selon 
le style d'écriture du programme 
de départ ; cependant, et pour se 
donner une idée, on peut prendre 
comme exemple le programme 
“Minitel” — particulièrement dense 
— du numéro 27 de Pom's. 
“Minitel” est ‘éclairci’ en : 


“Décompacteur” compilé (la 
disquette d'accompagnement 
de ce numéro contient les deux 
versions, la version compilée 
étant, bien sûr, une application 
‘double-cliquable”). | 


a | 


+ Segment d'un programme Basic : 


S597:FRAMEPOLY VARPTR(DI(IN)):IF 1-0 OR I=7 OR I-3 THEN TEXTMODE 
1:TEXTFACE 8 ELSE TEXTMODE 3:TEXTFACE O0 

MOVETO D(N+2)+9,D(N+1)+11:PRINT A$(I):1IF I-0 THEN TEXTFACE 8 :MO 
VETO D(2)+9,D(1)+23:PRINT "Fin" 

N=N+27:NEXT:FRAMEPOLY VARPTR(M(0)):FRAMEROUNDRECT VARPTRIN(O) 
),4,4:TEXTMODE 1:TEXTFACE O:MOVETO 227,31:PRINT "’ #":PUT 
(152,14),K,PSET:PUT(177,14),J,PSET:IF A3=1 AND DE THEN PUT(I 
195,14),L,PSET 

IF DT THEN PAINTROUNDRECT VARPTR(P({0)),4,4:TIMER ON 


+ Le même segment après traitement : 


S97: 

FRAMEPOLY VARPTRIDIN)) 

IF 1-0 OR I=7 OR I-9 THEN TEXTMODE 1:TEXTFACE 8 ELSE TEXTMODE | 
3:TEXTFACE O 

MOVETO D(N+2)+9,D(N+1)+11 

PRINT A${I}) 

IF I=0 THEN TEXTFACE 8:MOVETO D({2)+9,D(1)+23:PRINT "Fin" 

N=N+27 

NEXT 

FRAMEPOLY VARPTR(M(O)) 

FRAMEROUNDRECT VARPTRIN(O)),4,4 

TEXTMODE 1 

TEXTFACE O 

MOVETO 227,31 

PRINT ® cs 

PUT(152,14),K,PSET 

PUT(1/77,14),J,PSET 

IF A3 AND DE THEN PUT(195,14),L,PSET 

IF DT THEN PAINTROUNDRECT VARPTR(P(0)),4,4:TIMER ON 








Programme ‘Décompacteur’ 


DATA AND,ABS, ALL, APPEND,ASC,AS,ATN,BASE,B 


EEP , BREAK, BUTTON 


DATA BACKPAT,CALL,CDBL,CHAIN,CHRS$,CINT,CL 


EAR, CLOSE, CLS 


DATA COMMON, CONT, COS, CSNG,CVD,CVI,CVS,CIR 


CLE, CSRLIN, CVSBCD 


DATA CVDBCD, DATA, DATES, DEFINT, DEFSNG, DEFD 


BL, DEFSTR, DEF, DELETE 





Pom's n° 31 


DATA DIM,DIALOG, EQV, EDIT, ELSE, END, EOF, ERA 
SE, ERL, ERROR, ERR, EXP 

DATA EXIT,ERASERECT, ERASEOVAL, ERAS EROUNDR 
ECT, ERASEARC 

DATA ERASEPOLY, FIELD, FILES,FIX,FN,FOR,FRE 
 FRAMERECT, FILLRECT 

DATA FRAMEOVAL, FILLOVAL, FRAMEROUNDRECT, FI 
LLROUNDRECT 

DATA FRAMEARC,FILLARC, FRAMEPOLY,FILLPOLY, 
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GET, GOSUB, GOTO 

DATA GETPEN, HEXS$S,HIDECURSOR, HIDEPEN, IMP,I 
F,INKEYS, INPUT, INSTR 

DATA INT, INITCURSOR, INVERTRECT, INVERTOVAL 
, INVERTROUNDRECT 

DATA INVERTARC, INVERTPOLY,KILL, LEFT, LEN, L 
ET,LINE,LIST,LLIST, LOAD 

DATA LOC, LOF, LOG, LPOS, LPRINT, LSET, LCOPY, L 
OCATE, LBOUND, LIBRARY 

DATA LINETO, MOD, MERGE, MIDS, MKD$,MKIS,MKSS$ 
, MOUSE, MENU 

DATA MKSBCDS$, MKDBCDS , MOVETO, MOVE, NAME, NEW 
,NEXT, NOT, OR, OCTS 

DATA ON,OPEN,OPTION, OUTPUT,OFF, OBSCURECUR 
SOR, PEEK, POKE, POS 

DATA PRINT,PUT,POINT,PRESET,PSET,PENSIZE, 
PENMODE, PENPAT 

DATA PENNORMAL, PAINTRECT, PAINTOVAL, PAINTR 
OUNDRECT, PAINTARC 

DATA PTAB,PAINTPOLY, PICTURE, RANDOMIZE, REA 
D, REM, RENUM, RESTORE 

DATA RESUME, RETURN, RIGHTS ,RND,RSET, RUN, RE 
SET, SAVE, SGN, SIN, SPACES$ 

DATA SPC,SQR, STEP, STOP,STR, STRINGS, SWAP,S 
YSTEM, SUB, STATIC, SOUND 

DATA SHARED, SCROLL, SETCURSOR, SHOWCURSOR, S 
HOWPEN, TAB, TAN, THEN 

DATA TIME,TO,TRON, TROFF, TIMER, TEXTFONT,TE 
XTFACE, TEXTMODE, TEXTSIZE 

DATA USING, USR, UBOUND, UCASES$, VAL, VARPTR,W 
AIT,WEND, WHILE, WIDTH 

DATA WRITE,WINDOW, WAVE, XOR, CASE, ENDIF, IGN 
ORE, INCLUDE, PAGE, SELECT 

DATA =,!,%,# 


DEFINT A-Z 

DIM Mots.CleS (221) 
TEXTFONT 4 

TEXTSIZE 9 

WIDTH 80 
Retour.Chariot$=CHRS$ (13) 
Delimiteur$=CHR$ (34) 
CLOSE 

FOR Index=0 TO 221 

READ Mots.CleS (Index) 


NEXT 

Debut : 
Fichier$=FILESS(1,"TEXT") 

IF Fichier$="" THEN CLOSE :END 


OPEN Fichier$ FOR INPUT AS 1 
OPEN Fichier$+".M" FOR OUTPEUT AS 2 


Boucle.0: 

Drapeau.Delimiteur=0 

Chaine$="" 

Boucle.l: 

IF EOF(1) THEN CLOSE:GOTO Debut 

CaractereS=INPUTS (1,1) 

IF Caractere$-Delimiteur$ THEN Chaine$=Ch 
aine$+Caractere$:IF Drapeau.Delimiteu 
r THEN Drapeau.Delimiteur=0:GOTO Bou 








STRUCTUREXPERT " 


La solution pour programmer de manière 
structurée en MSBASICTM et ZBASICTM. 
STRUCTUREXPERTTM vous permet de 
disposer d'un ensemble d'analyses qui 
peuvent être visualisées (fenêtres 
“scrollables”), sauvées séparément sur 
fichiers, ou imprimées : 
Arborescence complète (descendante 
et ascendante) des appels GOSUB et 
CALL. 
Listes triées sur plusieurs types de 
critères des GOSUB et des CALL. 
Statistiques : fréquence d'appel de 
chaque routine. 
Détection d'erreurs logiques (boucles 
non contrôlées, récursivité illégale, 
labels et routines non utilisés). 


STRUCTUREXPERTM 495 F TTC + 20 F de port 
Paiement par CB ou chèques adressés à 
Q.S.I. — 149, rue Oberkampf — 75011 PARIS 
Tél. : (1) 42 49 37 95 





cle.l ELSE Drapeau.Delimiteur=-1:GOT 
O Boucle.l 

IF NOT Drapeau.Delimiteur THEN IF Caract 
ere$=":" THEN Verification 

IF Caractere$=Retour.Chariot$ THEN Drapea 
u.Delimiteur=0:PRINT#2,Chaines : PRINT 
Chaine$:GOTO Boucle.0 

Chaine$=Chaine$+Caractere$:GOTO Boucle.l 


Verification: 

PRINT#2,Chaine$; :PRINT Chaines; 

IF INSTR(Chaine$,"IF ")=0 THEN GOSUB Sp 
:GOTO Boucle.0 

PRINT#2,":";:PRINT ":"; 

Boucle.2: 

IF EOF(1) THEN CLOSE:GOTO Debut 

CaractereS$=INPUTS(1,1) 

IF Caractere$=Retour.Chariot$ THEN PRINT 
#2,"":PRINT:GOTO Boucle.0 

PRINT#2,CaractereS; :PRINT Caractere$; :GO 
TO Boucle.2 


Sp: 

Index=0 

Boucle.Sp: 

IF INSTR(Chaine$,Mots.Cle$ (Index)) THEN 
PRINT#2,"":PRINT:RETURN 

Index=Index+1l 

IF Index=222 THEN PRINT#2,":":PRINT ":" 
: RETURN 


GOTO Boucle.Sp 


Pom's n° 31 





Disquette Pom'’s 
Macintosh n°31 


Pom's 


Vous y trouverez une nouvelle version -— 
compilée - du programme Minitel publié 
dans le numéro 27 de Pom's. Cette version 
est autonome : il s'agit d'une application 
‘double-cliquable’ ; les fichiers ‘Minitel/l’, 
Minitel/2° et ‘Basic Runtime’ ne sont plus 
nécessaires. Beaucoup plus rapide aussi : de 
3 à 10 fois selon les fonctions utilisées. 
Enfin, notre programme est désormais 
compatible HFS ; les utilisateurs de 
Macintosh Plus et Macintosh SE vont enfin 
pouvoir utiliser largement leurs dossiers ! 


lalson 


Chronomètre L 


Le nouveau système - 4.0 - et le nouveau 
Finder - la version 5.4 - sont aussi sur la 
disquette 31. Le nouveau système 
d'exploitation est accompagné de nouvelles 
version des accessoires Recherche de 
Fichiers, Sélecteur d'imprimantes et 
Tableau de bord. Il comporte aussi de 
nombreuses améliorations moins visibles 
(nouvelles icônes...) ou absolument 
invisibles sans désassembleur (routines 
modifiées ou réécrites). Le ‘Finder’ a aussi 
eu droit à quelques améliorations : un 
article ‘éteindre’ sous l'article 
‘redémarrer’; un article ‘ranger la fenêtre’ 
qui devient ‘aligner la sélection’ lorsqu'il y 
en a une ; une corbeille qui se gonfle 
lorsque quelque chose est dedans ; des 
fenêtres d'informations repensées, etc... 


Annulation 
Correction 


& Mode Edit Fichier 
Sommaire 





2C——— Tableau de bord 


me ES 


Fond de l'écran 


Heure © 
15:40:15 















Clignotement du 
Et puis, comme d'habitude, les fichiers, point d'insertion 
sources et programmes listés dans le cahier 


Macintosh de ce numéro 31 de Pom's. 
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a Fichiers JLB (M 
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D Câble Mac+/Minitel 
D écran Minitel 

© Minitel 27 

D Minite1/1.T 


Créé le : Jeu Jan 22 1987; 10:16 © Minitel 27 
Modifié le : Jeu Mai 21 1987; 17:29 € Dossier Basic 


Taille : 5879 octets ; 
6K sur le disque e Fichiers JLB 
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Alain Bohec 


ans le numéro 22 de 
Pom’s, on pouvait 
trouver plusieurs astu- 
ces qui permettaient 
une réduction impor- 
tante du fichier ‘Système’, ceci à 
fin de gagner de la place sur les 
disquettes dites de démarrage. 


Un de ces ‘trucs’ consistait en la 
suppression de tous les 
accessoires de bureau sauf un ; le 
‘Finder’ ne supporterait pas 
qu'on les retire tous. Puisqu'il 
faut en laisser un dans le 
système, autant que celui-ci soit 
un accessoire ‘minimum’ : 
MinAcc occupe seulement 232 
octets. 


Il serait possible de faire encore 
plus petit, mais rien ne serait 
alors visible sur l'écran. 


Fichier Exec ‘MinAcc.Job” 


Asm MinAcc.Asm Exec Edit 
Link MinAccLink Finder Edit 


Fichier ‘MinAcc.Link’ 


] 

/Resources 

MinAcc 0] 
/output Fichier MinAcc’ 

/Type 'DFIL' 'DMOV' ‘@ 
$ 


Source ‘MinAcc.Asm” 


; Montre une fenêtre sans titre 

; avec un petit rond dedans dont 

; le pointeur est placé dans le 

; champ WindowPic de la fenêtre. 


RESOURCE 'DRVR' 27 ‘MinAcc' 


; PRELIMINAIRES 
; INCLUDES et EQUATES 


INCLUDE  SysEqu.D 
INCLUDE  ToolEqu.D 





INCLUDE  Traps.Txt 
; MOTS D'ENTREE 
Derou 


; Comportement. uniquement réponse 
; (obligatoire) aux controles, pas 

; de période, évènements de mise à 

; jour (64) et mDown (2), pas de 

; menu 


DC.W 50400 
DCW 0 
DC.W 50040 
DC.W 0 


; écarts vers les Routines 


DC.W  digoradur-Derou 
DC.W OrnDone-Derou 
DC.W OrnCti-Derou 
DC.W OrnDone-Derou 
DC.W klozadur-Derou 
; OUVERTURE 
digoradur 
MOVEM.L  A1-A4,-(SP) 
MOVE.L A1,A4 


; sauvegarde du GrafPtr de 
; l'application en cours 


CLR.L -(SP) 

MOVE.L SP,-(SP) 
_GetPort 

TST.L dCtiWindow(A4) 
BNE prenestrameus 


; Si l'on n'a pas déja une fenêtre, 
; il faut en fabriquer une : 


CLR.L -(SP) 

CLRL -(SP) 

PEA gwerenn 

CLR.L -(SP) 

CLR.W -(SP) 

MOVE.W #18,-(SP) 

MOVE.L #-1,-(SP) 

MOVE #50100,-(SP) 

CLR.L -(SP) 

_NewWindow 

MOVE.L (SP)+,A0 

MOVE.L AO, 
dCtiWindow(A4) 

MOVE.W dCtiRefNum(A4), 
WindowKind(A0) 











; ROND 
MOVEM.L  A1-A4,-(SP) 
MOVE.L dCtiWindow(A4), 
-(SP) 
_SetPort 
MOVE.L dCtilWindow(A4), 
-(SP) 
CLR.L -(SP) 
PEA vue 
_OpenPicture 
_SetWindowPic 
PEA q 
_FrameOval 
_ClosePicture 
MOVEM.L  (SP)+,A1-A4 
; Si l'on a déja une fenêtre 
prenestrameus 
distro 
_SetPort 
MOVEM.L  (SP)+,A1-A4 
OrnDone 
MOVEQ #0,D0 
RTS 
; FERMETURE 
klozadur 
MOVEM.L  A1-A4,-(SP) 
MOVE.L A1,A4 
; même procédure 
; qu'à l'ouverture : 
CLRL -(SP) 
MOVE.L SP,-(SP) 
_GetPort 
MOVE.L dCtilWindow(A4), 
-(SP) 
CLRL dCctiWindow(A4) 
_DisposWindow 
BRA.Sdistro 
; CONTROLE 
OrnCtl 
MOVEQ #0,D0 
MOVE.L jODone,-(SP) 
RTS 
; DONNEES 
gwerenn DC.W 40,1,60,21 
q DC.W 2,2,18,18 
vue DC.W 0,0,20,20 
END 
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Kino(201) 


Principes de fonctionnement 


Kino est une application qui permet de faire défiler à 
l'écran les images d'un album de type usuel ou de 
type “Multi-Scrap”. Les images sont 
automatiquement centrées et s'affichent sur un fond 
qui peut être modifié. 


Les albums d'un seul de ces deux types sont 
considérés comme des documents de Kïino. Le finder 
lance donc Kino lorsque l'on clique deux fois sur 
l'icône d'un album du type adéquat. 


Lorsqu'on lance directement Kino, cette application 
cherche à ouvrir un album par défaut, ayant l'un 
quelconque des deux types ci-dessus. Le nom de cet 
album peut être choisi à l'avance, lors de la 
configuration de Kino (voir le paragraphe 
‘Configuration de Kino”). 


La durée d'affichage des images peut également être 
fixée à l'avance. Elle peut varier de quelques 
dixièmes de secondes à plus d'un an. 


En sortie, Kino peut lancer une application 


quelconque, dont le nom peut également être choisi 
lors de la configuration. 


Configuration de Kino 


1] Album à ouvrir par défaut 
et application à lancer 






é File Edit 


 . ë 


numStrings 2 


LLLEL 










The string album par défau' 
LLLELL] 
The string application à lance 
LLLEZL] 
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Alain Bohec 


Avant usage, Kino doit être configuré. Pour cela, 
un éditeur de ressources est nécessaire, par 
exemple ResEdit. 


A l'aide de ResEdit, ouvrir la ressource de Kino 
intitulée : 


STR# "noms" ID = 171 


Cette ressource contient le nom de l'album que 
Kino cherchera à ouvrir dans le cas d'un lancement 
direct, et le nom de l'application à lancer lors de la 
sortie de Kino. À l'aide de ResEdit, vous pouvez 
modifier librement ces noms, qui sont initialement 
“diapos” et “MacPaint”. 


Lorsque le nom de l'application à lancer est celui de 
Kino, Kino se relance lui-même et refait défiler les 
images de “diapos”. 


2] Durée d'affichage de chaque image 
et ‘bip? 


Le nom de Kino ne doit comporter aucune 
parenthèse, ou alors être de la forme ‘“mot(n})” où 
mot est une suite de caractères sans parenthèse, et n 
un nombre compris entre 0 et 7F FF FF FF en 
hexadécimal, soit 2 147 483 647 en décimal. Ce 
nombre est la durée d'affichage des images en 
tierces. Par exemple, si le nom de Kino est 
“Kino(600)”, chaque image restera affichée 10 
secondes. 


En fait, la durée d'affichage ne peut être inférieure 
aux quelques dixièmes de seconde qui sont 
nécessaires pour collecter l'image sur le disque. La 
durée maximale est de 414 jours. 


Si la durée d'affichage est un nombre impair de 
tierces, un bip se fait entendre à l'apparition de 
chaque image. 


3] Albums reconnus comme 
documents de Kino 


é File Edit 
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é File Edit 
DTA LE OEIL SELECT RE 
nm 


ie 
put 





0 
OwnerName (CE 


owneriD 0 


= BNDL ID = 128 from Kino = 


Pour fixer le type des albums reconnus comme 
documents de K'ino, il faut remplacer, dans les 
informations sur Kino et dans le ‘bundle’ de Kino, 
la séquence des 4 caractères WXYZ ci-dessus par 
la séquence adéquate qui est MACS pour les 
albums de type usuel, et mscr pour les albums de 
type Multi-Scrap. 


Pour accéder à ces chaînes de caractères, il est 
nécessaire d'utiliser l'éditeur de ressources, que 
nous supposerons être ResEdit. Pour intervenir 
sur les informations sur Xino, sélectionner le nom 
de cette application dans la liste des applications, et 
choisir la rubrique adéquate du menu du fichier. 
Pour intervenir sur le ‘bundle’, ouvrir Kino, puis 
sa ressource de type BNDL et d'ID 128. 


Il est également possible de changer le type et le 
créateur des albums. 


4] Fond de l'écran 


Pour modifier le fond sur lequel s'affiche les 
images présentées par Kino, il suffit de modifier 
avec un éditeur de ressource la ressource de type 
‘PAT * de Kino. Il est bien entendu possible de 
choisir un fond blanc. 


Installation et exploitation 
de Kino 


Une fois Kino configuré, son bon fonctionnement 
est obtenu en le plaçant sur une disquette de 
démarrage. Dans le cas d'un disque formaté HES, 
les albums à ouvrir par Kino doivent être placés 
dans le même dossier que Kïino. 


Celui qui doit être ouvert lors du lancement direct 
de Kino doit avoir le nom figurant dans la 
ressource STR# ID 171. Si ce nom ne correspond 
pas à un album, ou si l'album ayant ce nom ne 
contient pas d'images, l'exécution de Kino 
s'achève immédiatement. 


Si Kino n'est pas placé sur la disquette de 
démarrage, il ne peut être lancé en cliquant deux 
fois sur l'icône d'un album. 


Après lancement, Kino fait défiler les images de 
l'album choisi, ou celles de l'album par défaut. 
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Pour être efficaces, les actions décrites ci-dessous 
doivent intervenir quelques dixièmes de seconde 
après l'apparition d'une image à l'écran. Kino 
collecte en effet une image sur le disque aussitôt 
après avoir affiché la précédente. 


Pour arrêter sur une image, presser le bouton de la 
souris. 


Pour passer à l'image suivante avant que la durée 
d'affichage soit écoulée, appuyer sur le bouton de 
la souris et le relâcher, ou presser la touche de 
tabulation. Pour revenir à l'image précédente, 
presser la touche d'effacement. 


Pour sortir de Kino, deux solutions sont possibles : 


+ presser la touche F, ce qui lance le finder ; 

+ presser la touche E, ce qui lance, si elle a été 
placée convenablement sur le disque, 
l'application ayant le nom figurant dans la 
ressource STR# ID 171, par exemple MacPaint. 


Si Kino ne trouve pas cette application, le Finder 
est lancé. 


En l'absence d'intervention, après avoir affiché la 
dernière image, Kino cherche à lancer l'application 
choisie, et, s'il ne la trouve pas, retourne au finder. 


N.D.LR. : l'application ResEdit se trouve sur la 
disquette Pom s Mac G. Un autre éditeur de 
ressources - REdit — est disponible sur la disquette 
d'accompagnement du numéro 24 de Pom's. é 


Source de l'Application ‘Kino’ 


* nunnnnnnnnm 

* + StartUp * 

* aunnaannnnn 

* Succession d'Images à l'écran 

Ru 2 om ae coco eo cm me ue me em nm = en ee ee ee me ee ee ee ee ee mue ee ce de de en me ee 
* Installation d’un GrafPort pour desiner 
* sur l'écran entier 

* On quitte après un certain délai ou par 
* 


pression sur le bouton de la souris. 
kom 
* A2 : adresse du SMAP 
* A3 : PicHandle 
* A4 : handle de la liste des noms 
* DO ID de l'image 
* D3 : rang de l’image dans l'album 
* D4 : nombre d'images dans l'album 
* D5 : délai 
* D6 : date de changement 
kon 


*nuun PRELIMINAIRES nonoonuonnunnonnnnnnnunununnun 


*—— INCLUDES 


include MacTraps.D ;: .TRAP 
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include ToolEqu.D ; equates du ToolBox 
include QuickEqu.D ; equates de QuickDraw 
include mABcro.Txt ; célèbres macros 
X*—— EQUATES 
CurApName equ $910 
ParenthOuv equ $28 
ParenthFerm equ $29 
abID equ 171 
pPID equ —32768 
HollDegwez equ $O0O0O0FFFF 
mButDwnEvt equ 1 bouton en bas 
keyDwnEvt equ 3 ; touche en bas 
touchE equ 14 :N° de touche 
touchF equ 3 ;:N° de touche 
touchTab equ 48 ;touche de tabul 
touchBac equ 51 ;touche de Backs 
DelDef equ 100 ; délai par déf. 
HautEc equ 342 
LargEc equ p12 
LargCoïin equ 50 ;ovale du. 
HautCoin equ 30 ;.rect entourage 
LongPtr equ 80 :long. pointeur 
AdNom equ 18 ; écart du nom 
fnfErr equ -43 fichier introu. 
* 

XDEF DERU 
Koss messes messes 
DERU 
*nuu PREPARATIFS uoguannnnunnnnnnnnnnnnnnnnn 


* 





COLLECTE DU NOM DE LA BOBINE 


Liste des Noms ++++#+#+1rree8rre+4+44peppesse 
* Cette liste doit être ouverte 
* dans tous les cas 
* pour lancer l'application suivante. 
* Le handle est placé dans A4. 
LRRRAXAXX AE E KE K KE KA KR K OK OROROR OK OAOK OR RORRAKK ER OR KR 
GetRes #'STR#',#abID 
dep .L,A4 handle de la liste 
K+++ Paramètres “+++ 
moveA.L #AppParmHandle,A0O ;adr handle 


K+++ 


moveA.L (AO),A0O ;handle 
moveA.L (AO0),A0 ;adresse 
move.W 21(A0),D0 ;nombre 

beq.s @10 :0:pas de dias 
clr 2 (A0) 


*+++ Adresse du Nom +-++++#+++++pppetepepepes 








*--- cas du lancement par des diapos ------- 
lea 12(A0),A0 ;adres nom 
bra.s ouverture 

*-—- lancement direct -------- 

@10 moveA.L (A4),A0 ;adr liste 
lea 2 (A0),A0 ;adr nom 

*ounnunnn 

ouverture 

* OUVERTURE DU CARROUSEL 
eP W pour RefNum 
emp .L,AO 
_0OpenResFile 
dep .W,DO ; RefNum 


Si I.W,#-1,D0,EXIT 


*+++ Etude du ResoOurceMap +444 
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*--- préparatifs 
moveA.L #TopMapHndl, A0 
moveA.L (AO),A0 
moveA.L AO,A1l 
_HLock 
moveA.L (AO),2A2 
addA.W 24(A2),A2 


*--- présence du SMAP ID = 0 ? 
; présence du SMAP ? 
move.L #'SMAP',D1 


handle -> A0 
; Sauvegarde 


;adresse —-> A2 
;adr liste typ 





BSR RECHTYPE 
bmi.s @10 
;vérification de l'ID 
move.W 6(A0),D0 Kino(201) 
moveA.L A2,A0 
addA.W DO,AO ;adr ler ID 
move.W  (A0),D0 ;premier ID 
bne.s @10 
bra.s @20 
@10 emp .W,#1 
_SysBeep 
11 emp .W,#1 
_SysBeep 
bra.W EXIT 
X*--- présence d'images ? ----------------- 
@20 move.L #'PICT',D1 
BSR RECHTYPE 
bmi.s @11 
move 4 (A0) ,D4 ;nbre images-1 
addg #3,D4 ;nombre+2 
KX——-— finitions -------—--—-—- 
moveA.L Al,AO restauration 
HUnlock 
*annnnn 
ACTIONS 
*—— COLLECTE DU DELAI 
moveA.L #CurApName, AO 
move.B (A0),D0 ;longueur nom 


*+5+ Recherche de la Parenthèse Ouvrante +++ 
@0O addQ.wW #1,A0 ;incrémente 
SSi 1I.B,#ParenthOuv, (A0),@5 
subQO.B #1,D0 
beq.s @20 
bra.s @0 
*#4+ Recherche de la Parenthèse Fermante +#+ 
@5 move.L AO,A1l ;adr dans A0 
addQ.wW #1,A1l 
@10 addQ.W #1,A1 ;incrémente 
SSi I.B,#ParenthFerm, (Al),@15 
bra.s @10 
*+++ Formation de la Phrase ++4+4rririitisss 
@15 move.L Al,D0 
sub.L AO,D0 


sub.B #1,D0 
move.B DO, (A0) 


*i++ Conversion en Délai “+4+4-+-+4++ppppppezere 


;boucle 


;: dernière adr 
;longueur+1l 
; longueur 


em .W,#1 
_Pack7 
move.L DO,D5 :délai = D5 
bra.s geo 
@20 move.L #DelDef,D5 délai défaut 


*nn 


———————— TT 
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geo 
* 





INSTALLATION DU GRAFPORT 


*+i+ Initialisations et Collectes ++4+++4+44+ 
*—--- QuickDraw et curseur ------------------ 
pea thePort (AS) 
_InitGraf 
_InitCursor 
_HideCursor 


*--- ouverture du GrafPort ----------------- 
pea g 
_OpenPort 
=== MOTdÉ === Se 
CollRes #abID,Pattern 
dep .L,AO 
Hlock 


; verrouillé 
move.L 


(AO) ,A6 ;adresse 


K +++ Signature A EE 
; Si le bouton est pressé lorsque l'on 

; arrive ici, 

; les initiales AB apparraissent en haut à 

; gauche, dans la barre de menu. 

; Elles y restent tant que le bouton est 


; pressé 
PRRRE KE KKK A ARR AR OROK UK K AK K KR OK AX KA KK RAR UK XX XX X 


ep W 
_Button 
dep .W,D0 
beq.s suite 
P2Couic #4,#14,MoveTo 
pea sign 
_DrawString 
@10 ep W 
_Button 
dep .W,D0O 
bne.s @10 
X+++ Peinture “+++ 
suite 
pea g+PortRect 
emp .L,A6 
_FillRect 


INITIALISATIONS 
move.L #HollDegwez, DO 
_FlushEvents 
GetRes #'SMAP',4#0 
dep .L,A0 
_ELock 
moveA.L (AO),A2 
moveQ #1,D3 
BSR Prepa 
*unnu DEFILE DES IMAGES nounuunnunnnnnnnuununm 
TRO 
* 


* 





;index 


;verrouillage 
;adres SMAP 
;lere image 





INCREMENTATION 
addQ #1,D3 
Si .B,D3,D4,EXIT 
*—— DESSIN 
Ktt+ Bip 2? HE 
btst #0,D5 

beq.s eff 

emp .W,#1 

_SysBeep 


; compteur 


X*+++ Préparation de l'ECrANn 44H44 
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eff pea g+PortRect 
emp .L,A6 
FillRect k 
pea entourage Kino(201) 


emp .W,#LargCoin 
emp .W,#HautCoin 
_EraseRoundRect 
Kit Ah! +444 + 
emp .L,A3 
pea cadre 
_DrawPicture 
emp .L,A3 
_ReleaseResource 
ATTENTE 


X+++ Préparatifs “+444 
BSR Prepa 
move.L #0,A0 
_Delay 
move.L DO,D6 
add.L D5,D6 


kit+ BOUCLE “++ 


;rect figure 


* 





@10 move #-1,D0 ;tous évènts 
lea Degwez, A0 ;point sur év. 
_GetOSEvent 
beq.s @20 ;évènemt: @20 
cmp.L T,D6 
bp1.s @10 ;boucle 
bra.s TRO ;autre image 

*--- un évènement a eu lieu ---------------—- 


@20 move.W Degwez, D2 ;numéro évt 
SSi I.W,#mButDwnEvt,D2,attente 
SSiNon I.W,#keyDwnEvt,D2,@10 
move.B TouNo,DO ;No de touche 


cmp.B #touchF, DO ;sretour Finder 
bne.s @30 ;F = Finder 
_ExitToShell 


@30 SSi I.B,#touchE,DO,EXIT 
SSi 1.B,#touchTab,D0,TRO 
SSi I.W,#2,D3,@10 
SSiNon 1I.B,#touchBac,D0,@10 
subQ #2,D3 
BSR Prepa 


bra.s TRO ;on continue 


* L'image reste affichée tant que que le 


* bouton de la souris est pressé 
DAKAR EEK EH AAKKK AK KR HOKOKAROROROKOKOKA UK OKOX AK KA X À 


attente 

ep W 

_Button 

dep .W,DO 

bne.s attente 

bra.s TRO 
*aun SORTIE unnaunnnonnnnnnnunnnnunnnunnnunnnn 
EXIT 


* 





COLLECTE DU NOM 
moveA.L (A4),A1l 





;adr list noms 


moveQ #3,D0 ;nbre de noms 
add.B 2(A1),D0 
addA DO,A1 

* VERIFICATION 








move.L #LongPtr,DO 
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_NewPtr,CLEAR 
_GetVol 

move.L Al,AdNom(AO) 
_GetFilelnfo 

SSi I.W,#fnfErr,D0,@10 


*—— LANCEMENT 
mouvO L,Al,anv 
_Launch 

@10 _ExitToShell 


XLLELELLLELELELELELELEEEEPELLLEELELEEELELLELEE 


*uuu SOUS-ROUTINES nounnonnunnnnnnnnnnnnnnnnn 
RECHTYPE 


* RECHERCHE D'UN TYPE DANS UN FICHIER —— 
; modifie A0,D0 

; entrée : adresse de la liste des 

; types : A2 

; type recherché : D1 

;: Sortie : N = 0 si type trouvé, 

; A0 : adresse du type 

; N = 1 sinon 

PÉRARRRÉRER RAR KOKK KA KR RAR KR R OA RO K RO KE KR À 








2 (A2) ,A0 


lea 
move.W  (A2),D0 
@0 SSi .L, (AO),D1,@1 type 'PICT' ? 
subQ.W #1,D0 
bmi.W @1 ; Sinon. 
addg #8,A0 ;incrém adr 
bra.s @0 ;…et on boucle 
@1 tst.w DO 
RTS 


*O00U0N0nNnnnunnnnnnnnnnnnun 
PREPA ; No de l'image : D3 
*—— PREPARATION DU DESSIN 


*+++ Calcul de l'ID +44 pepretespppete 

* l'ID est placé dans DO 

LRRRARER AK K KA ARR A EH KROKOKOKOR KR KR À À RAR AR XX 
move.W  #ppID,DO sinitialise 
moveA.L A2,A0 ;adr du SMAP 


@O move.B (A0),D1 ; rang 
SSi .B,D1,D3,@10 
addg #1,D0 
addg #1,A0 
bra.s @0 


*##+ Collecte de l'Image ++44++++++4r+t 
@10 CollRes D0,Picture ;PicHandle 
dep A.L,A3 ;PicHandle: A3 


*#4+ Calcul de Rectangles +++ 
@20 


*--- mise à jour de vect ----------- 
pea vect 
P2Couic #LargEc,#HautEc, SetPt 
*--- écriture du rectangle provisoire à ---- 
*--- l'adresse cadre ------------ 
moveA.L (A3),A0 :adr image: A0 
lea cadre,Al adresse: Al 
move.L 2(A0),(A1l) str  TopLeft 
move.L 6(A0),4(A1) ;tr BottomR 
*--- calcul de vect ---------— 
emp .L,BotR 
pea vect 
_SubPt 
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———————————————— — … — … —…— —…——— —— —" —_—_———]—]—]—]—]—]—]_—_—_—_—_—_—_—_— 


emp .L,TopL 


pea vect 
_SubPt 
lea vect,AO 
asr.W (A0) 
asr.W 2 (A0) 
*--- placement du rectangle (au centre) ---- 
pea cadre 
P2Couic vect+2,vect,O0ffSetRect 
*--- rectangle d’entourage ----------------- 
lea entourage,A0 
move.W cadre,D0O 
asr.W #1,D0 
move.W DO, (A0) 
move.W cadre+2,D0 
asr.W #1,D0 
move.W DO,2(A0) 
move.W cadre+4,D0 
add.w #HautEc, DO 
asr.W #1,D0 division 2 
move.W DO,4(A0) 
move.W cadre+6,D0 
add.w #LargEc, DO 
asr.W #1,D0 ;division 2 
move.W DO,6(A0) 
* 
RTS 


XÉLELELLLEEPELEELELELELELELELELELELELELLELELEE 


*unuu DONNEES DNOOOONnQNNONNUNNNNNNNNNNNnnnnnE 




















* GRAPHIQUE 
g dcB.B PortRec,0 ;GrafPort 
vect dc.w 0,0 ; centrage 
cadre 
TopL : dc.W 0,0 
BotR : dc.W 0,0 
entourage 
dc.W 0,0 
dc.w 0,0 
* EVENEMENT 
Degwez 
dc.wW 0 
dc.W 0 
TouNo: dc.B 0 
dc.B 0 
T2 dc.L 0 ;temps écoulé 
dc.L 0 
dc.W 0 
* NOMS 
anv dc.L 0 
sign dc.B 2 
dc.B "AB' 
 —_— 
FIN 


QUO nNNNUNOUUNUUNUUNONNUNUUNNNNUUNNNNUNNNNN 


serons oem see 
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Version 
IBM° PC/AT" 
et compatibles 


e Transmission par le réseau 
téléphonique de tous les types de 
fichiers et programmes entre deux 
IBM® PC/AT"” ou compatibles. 

Protocole ‘intelligent’ garantissant des 
transferts d'informations ultra-fiables. 


Émission de tous les types de fichiers 
et programmes vers les Macintosh. 
Émission des fichiers au format ‘texte’ 
vers les Apple //. 

Réception des fichiers ‘texte’ émis par 
les Apple // et Macintosh. Les fichiers 
au format ‘texte’ sont recodés 


(caractères accentués et spéciaux). 





Version 
Apple // 


e Transmission par le réseau 
téléphonique de tous les types de 
fichiers et applications entre deux 
Apple //. 


+ Protocole ‘intelligent’ garantissant des 
transferts d'informations ultra-fiables. 





* Émission de tous les types de fichiers 
et programmes vers les Macintosh. 


+ Émission des fichiers au format ‘texte’ 
vers les IBM® PC/AT"" et compatibles. 


+ Réception des fichiers ‘texte’ émis par 
les IBM® PC/AT”" et Macintosh. Les 
fichiers au format ‘texte’ sont recodés 
(caractères accentués et spéciaux). 


* Possibilité de réception sans recodage 
des fichiers ‘texte’ émis par les IBM°® 
PC/AT”" et Macintosh. 

e Utilisation possible avec le Modem 
intégré au Minitel, avec un Modem 
classique, ou en local entre deux Apple 
//, un Apple // et un PC” ou encore un 
Macintosh et un Apple //. 


° Possibilité d'utiliser le port intégré du 





Version 
Macintosh 


e Transmission par le réseau 
téléphonique de tous les types de 
fichiers (textes, polices de caractères, 
feuilles de calculs, accessoires de 
bureau...) et applications entre deux 
Macintosh. 


Protocole ‘intelligent garantissant des 
transferts d'informations ultra-fiables. 
Émission des fichiers au format ‘texte’ 
vers les Apple //. 


+ Émission des fichiers au format ‘texte’ 
vers les IBM® PC/AT" et compatibles. 
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* Réception de tous les types de 


: Vitesse de transmission : : Données : 
fichiers émis par les Apple // et su 
IBM® PC/AT:#“, Les fichiers au ©) 300 bauds ©) 4800 bauds : O5 bits 
format ‘texte’ sont recodés (© 600 bauds © 7200 bauds : Oé bits 
(caractères accentués et © 1200 bauds © 9600 bauds : ©? bits 


Spéciaux) et stockés sous la forme 
de fichiers ‘MacWrite’ ; les autres 
types sont stockés sous la forme 
de fichiers ‘Edit’ (utilisables 
depuis n'importe quel 
programme acceptant le format 
TEXT). 


Possibilité de réception sans 
recodage des fichiers ‘texte’ émis 
par les Apple // et IBM® PC/AT'“ 
ou compatibles. 


©) 1800 bauds 
> 2400 bauds 
© 3600 bauds 


© 19200 bauds © 8 bits 


© 57600 bauds : 


: Arrêt : 
 ©1 bit 

: O1,5 bits 
: O2 bits 


Parité : 
{e) Aucune 


€) Impaire 
O Paire 





* Option de transmissions groupées et automatiques 
de fichiers ou applications (jusqu'à dix). La 
possibilité demeure même dans le cas de fichiers 
ou applications répartis sur plusieurs volumes 
différents. 


Utilisation possible sur le port série 
‘Communication’ ou sur le port ‘Imprimante’. Le 
port ‘Imprimante’ n'est toutefois pas accessible si 
le réseau AppleTalk est connecté. 


Utilisation possible avec le Modem intégré au 
Minitel, avec un Modem classique, ou en local 
entre deux Macintosh, un Macintosh et un IBM® 
ou encore un Macintosh et un Apple //. 


Configuration possible du port courant pour une 





Options 


fr) Minitet 
Fe] inite 






Modem ou local 


© 
# IQ Part communication 
D port imprimante 


Configuration du port... 












utilisation avec un Modem ou en local entre deux 
appareils. On peut ainsi transmettre des 
informations jusqu'à 57 600 bauds soit, en tenant 
compte du protocole utilisé, plus de 5 Ko par 





Enregistrer la configuration. 
Charger une configuration. 


Réception sans modification 





seconde. 


+ Sauvegarde possible de 
la configuration en cours 
dans l'optique de 
l'utilisation ultérieure 
d'une même configu- 
ration. 


+ Possibilité de ‘démar- 
rage configuré par un 
‘double-clic’ sur un 
fichier de configuration. 


+ Menu ‘Quitter permet- 
tant le départ vers une 
application au lieu du 
‘Finder. 

+ Compatible tous environ- 
nements. 





Bon de commande page 75 








Liste des fichiers à émettre : 


Japanese Girl 

Billiard 

Disklrite 

PaintMover 

Polices 

Ecran- 0 

Com [9600_7_P_1] 
//Mac 1001111 1001100 
II->Mac 


Sélection des fichiers : OK 


Annuler 
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Diet Por Ma B et Mc C Bon de commande pue 


Portez ce bol de vieux isky oux 257 juges qui fument 


LORTEZ CE BOL DE UIEUX UHISKY AUX 257 JUGES QUI FUMENT PORCEZ CE 8OL DE MEME WHi3<S cp 257 JUGES 
Fm ro a nan nu af untatatdetes lent Peer Portez ce bol de vieux whisky aux 
Portez ce boi de vieux whieKy aux 257 juges qui fument Portee ce bol de UieUH 


Portez ce bol de vieux whisky Pontez ce Bol de vieux wBiARy aux 257 juges qui fument 
Portez ce bol de vieux whisky aux 257 juges qui fument 


Portez ce bol de vieux whisky aux Portez ce bol de vieux whisky aux 257 juges qui fument 
Portez ce bol de pieux whisky aux 257 
Portezlcelbolldeluieux}wniskufauxf25 juge sfauitument| 

Portez ce bol de vieux whisky aux 252 juges qui 


FES  ° FH 
HE BL 
ur ÉLLT 
LL HS .. # 


Portez ce bol de vieux whisky aux 257 juges qui fument 
Torres ue 607 ne oneyxX MIUNCEX ay x 257 KYTeC EYM 
Portez ce bol de vieux whisky aux 257 juges qui fument 


Portez ce bol de vieux whisky aux 257 juges qui 
Portez ce bol de vieux whisky aux 


Portez ce bol de vieux whisky aux 257 juges qui fument 
Portez ce bol de vieux whisky aux 257 juges qui fument 

Portez ce bol de vieux whisky aux 
Portez ce bol de vieux wblsky aux 257 fuges qui fument 
Portez ce bol de vieux whisky aux 25 


7+5kI% FI L+l TI IQIIV LSQEIZ FIV 257 GIE PIQ YIJItk 
7+DAIV M L+i TI INIIV SUD 12 FIV 
Portez ce Lot de vieux whiak4y aux 257 jugea qui fument 


Portez ce bol de vieux whisky aux 257 juges qui fument 


Portez ce bol de vieux whisky aux 257 juges qui fument 
APANNTHANA HN DMAAMÉ NO RRANIE HUNT NX EUYI AXNA “4 FXINYA 
POTTETL C= OL d= IUT WHISKY SU 2357 
Ponte ce bol be bleux phirky aux 257 œuger &ul pument 

Portez ce bol de uieux Whisky aux 257 juges qui funent 


Portez ce bol de vieux whisky aux 25 


Portez ce bol de vieux whisky aux 257 juges qui fument 


entr 
a REF UPEEA 
PRÉ E 





Portez ce bol de vieux whisky aux 


Portez ce bol de vieux whisky oux 257 juges qui fument 
Partez ce bel de uleux mdisky eux 257 juges qui Taneat 


Portez ce bol de vieux whisky aux 257 juges 
Portez ce bol de vieux whisky aux 257 


Poetam at Lol dû vite mki2hy ou 267 jugis qi domtat 


Portez ce bol de vieux ihisky aux 287 juges qui 


Portez ce bol de Lieux 


Portez ce bol de vieux whisky aux 
Portez ce bol de vieux whisky aux 257 juges 


Portez ce bol de vieux whisky aux 257 juges qui furnent 
FR © 6 E ER ONG où 27 js qi re 
PORTEZ CE BOL DE VIEUX WHISKY AUX 257 


Polices de la disquette Pom's Mac 18 
Polices de la disquette Pom's Mac C 


Vous avez un Apple [le avec Chat Mauve ou un /{c ? 
Il s'agit d'un système graphique VontaE Fate 
double-haute résolution écrit en Pascal. 
COGO vous permet de manipuler des Utilisez 


graphiques grâce à un langage de 
description des objets - points, angles- O 
et à l'emploi de fonctions primitives de 


manipulation très puissantes : cercle, a ont LE g 
tangente, 
intersections, parallèles, etc. Il est ainsi Apple //e, /le 
possible de tracer des grilles, des 
cercles, des segments de droite, des 
tangentes communes à deux cercles, de 
calculer des distances, des angles. 


Ce programme, destiné à résoudre 
des problèmes de géométrie plane, 
comporte des instructions de stockage 
L'éditeur permet une saisie rapide du SUT fichier afin de permettre la reprise 
langage. Une instruction COGO d'un calcul. 
peut-être exécutée dès la saisie pour 
faciliter la mise au point, ou au sein d'un 200,00 F TTC, franco 


programme. Bon de commande page 74 
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Serge Cattan 





Programme LE VOYAGEUR 


10 REM RARRARÉRRRRARRRRRARÉRRRÉRRÉRARRRARARRARR ARE 
20 : 
30 REM CATTAN Serge LE VOYAGEUR 11/86 
40 : 


50 REM #*ARARRRRARRARARAAARARARRARRRARRRÉAÉARAARÉÉE 


60 ÆÔONERR GOTO 2280 


70 TS = Mmes 
80 DS = CHRS (4) 
90 HOME 


100 INVERSE 
110 PRINT " 


mm. 
# 


: PRINT SPC( 40) 
LE VOYAGEUR 


120 PRINT SPC( 40) 


130 NORMAL 

140 POKE 34,4: VTAB 8 

150 PRINT "ANALYSE D'UN PROBLEME + APE td 

160 PRINT "REPRISE ANALYSE EXISTANTE > 2" 

170 PRINT "MODIFICATION DONNEES > J" 

180 PRINT "MODE D'EMPLOI ==> 4" 

190 PRINT "RETOUR AU BASIC “2. 2" 

200 POKE 36,11: VTAB 18: INPUT "VOTRE CHOIX ? ";R$ 


:R = VAL (R$) 

210 ON R GOTO 260,230,240,3090,250 

220 GOTO 200 

230 GOSUB 2070: GOTO 570 

240 GOSUB 2070: GOSUB 1580: GOTO 570 

250 POKE 34,0: END 

260 HOME 

270 VTAB 8: PRINT "NOM DE L'ANALYSE (? POUR LE CAT 
ALOGUE) :": PRINT : INPUT " - "NES 

280 IF NES = "?" OR LEN (NES) = O0 THEN GOSUB 237 
0: GOTO 260 

290 PRINT : INPUT "NOMBRES DE TRAJETS ? ";NR$S 

300 NR = VAL (NR$): IF NR < 2 THEN PRINT " UN CHI 
FFRE > 1 S.V.P.": GOTO 290 

310 GOSUB 330: GOTO 400 


330 IF ME = 1 THEN RETURN 

340 DIM M{NR,NR),C(NR,NR),D(NR,NR),X(NR + 1),Y(NR 
+ 1), VS (NR) 

350 ME = l: RETURN 


390 REM =" 


400 FOR I = 1 TO NR 
410 PRINT "NOM DE LA VILLE ":I;" :";: 


INPUT V$(I) 








Es 






mais de vous proposer une solution 
là un vieux problème de récréation 
sh \mathématique. 

Il s'agit de déterminer le meilleur itinéraire à 
parcourir entre plusieurs villes, afin de minimiser un 
facteur quelconque, par exemple : 


- le nombre de kilomètres ; 
- le temps du parcours total. 


Le modèle de Little permet d'obtenir un algorithme 
qui fournit une solution. Les seules contraintes sont : 


* il est interdit de passer deux fois dans la même 
ville ; 


+ la fonction d'évaluation doit être obligatoirement 
minimisée (il est ainsi impossible d'utiliser une 
fonction qu'il faudrait maximiser). 


Le programme LE VOYAGEUR, écrit en Applesoft 
donc facilement adaptable, permet de créer et de 
modifier à loisir les hypothèses d'un problème ; les 
solutions sont éditables sur imprimante (Epson 
RX80 mais vous n'aurez aucune difficulté à convertir 
les quelques lignes). En prime, le programme vous 
offre un tutorial pour vous familiariser avec les 


concepts manipulés. 


420 NEXT I 

430 HOME 

440 FOR I = 1 TO NR 
450 FOR J = 1 TO NR 


460 IF I = J THEN C{I,J) = lE + 30: GOTO 500 
470 PRINT "TRAJET DE ";V$(I);" À ":V$(J);" ";: INP 


UT VT$ 

480 C(I,J) = VAL (VT$) 

490 IF C(I,J) = 0 THEN INVERSE : PRINT "UN NOMBRE 
>0 S.V.P.": NORMAL : GOTO 470 


500 D{I,J) = C(I,J) 

510 NEXT J 

520 PRINT 

530 NEXT I 

540 REM ------" 


550 REM MODELE DE LITTLE 
560 REM ---------"-"""""""""" 
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570 GOSUB 1090: REM * MODIF RESOLUTION * 


580 M = 1E + 30:K = O:RO = 0:R1 = O:R2 = 0:CS = 0:0 


UI = 0 
590 K=K +1 
600 GOSUB 850: REM 
610 HOT = OUI + CS 
620 C(R1,0) = 1:C(0,R2) = 1:C(R2,R1) = 1E + 30 
630 RO = O:X(K) = Rl:Y(K) = R2 
640 GOSUB 1090: REM * MODIF RESOLUTION * 
650 OUI = OUI + RO 


* SUBSTITUTION * 


660 IF OUI > M AND HOT > M THEN FIN = 1: GOTO 750 
670 IF HOT < M AND OUI < = HOT THEN M = HOT 

680 IF OUI < = HOT THEN 750 

690 IF OUI < M THEN M = OUI 


700 FOR I = O0 TO NR 

710 FOR J = 0 TO NR:C{I,J) 

720 NEXT I 

730 C{X{K),Y(K)) = 1E + 30:OUI = HOT 

740 GOSUB 1090: REM * MODIF RÉSOLUTION * 

750 IF K < > NR - 1 AND FIN < > 1 THEN 590 

760 IF FIN = 1 THEN 830 

770 K = K + 1 

780 FOR I = 1 TO NR 

790 FOR J = 1 TO NR 

800 IF C(I,0) = 0 AND C(0,J) 
} = J'I = NR:J = NR 

810 NEXT J 

820 NEXT I 

830 GOTO 1470 

840 REM 

850 


= M{I,J): NEXT J 


= 0 THEN X(K) = I:Y(K 


860 

870 REM ---------- 

880 CS = 1E - 30 

890 FOR I = 1 TO NR 

900 IF C(I,0) = 1 THEN 1040 

910 FOR J = 1 TO NR 

920 IF C(0,J) = 1 OR C{(I,J) < > O0 OR C{I,J) > 1E 
+ 30 THEN 1030 

930 M1 = 1E + 30 

940 FOR J1 = 1 TO NR 

950 IF C(0,J1) < > 1 AND C({I,J1) < M1 AND J< > 
J1 THEN M1 = C{I,J1) 

960 NEXT J1 

970 M2 = IE + 30 

380 FOR I1 = 1 TO NR 

990 IF C(11,0) < > 1 AND C(Il,J) < M2 AND Il < > 
I THEN M2 = C{(I1,J) 

1000 NEXT I1 

1010 MIN = M1 + M2 

1020 IF MIN > CS THEN CS = MIN:R1 = I:R2 = J 

1030 NEXT J 

1040 ONEXT I 

1050 FOR I 

1060 FOR J 

1070 ONEXT I 

1080 RETURN 

1090 REM -------————————— 

1100 REM MODIF RESOLUTION 

1110 REM ----------------——mmmm meme 

1120 FOR I = 1 TO NR 

1130 IF C(I,0) = 1 THEN 1250 

1140 MIN = lE + 30 

1150 FOR J = 1 TO NR 


Il 


0 TO NR 
0 TO NR:M{I,J) 


(l 


= C(I,J): NEXT J 


1160 IF C(0,J) = 1 THEN 1190 

1170 IF C{I,J) = © THEN F = l:J = NR: GOTO 1190 
1180 IF C{I,J) < = (MIN) THEN MIN = C{I,J) 
1190 NEXT J 

1200 IF F = 1 THEN F = 0: GOTO 1250 

1210 FOR J = 1 TO NR 

1220 IF C(0,J) = O THEN C{I,J) = C{(I,J) - MIN 
1230 NEXT J 

1240 RO = RO + MIN 

1250 NEXT I 

1260 FOR J = 1 TO NR 

1270 IF C(0,J) = 1 THEN 1390 


1280 MIN = 1E + 30 


1290 FOR I = 1 TO NR 

1300 IF C(I1,0) = 1 THEN 1330 

1310 IF C{I,J) = O0 THEN F = l1:1 = NR: GOTO 1330 

1320 IF C{(I,J) < (MIN) THEN MIN = C{I,J) 

1330 ONEXT I 

1340 IF F = 1 THEN F = 0: GOTO 1390 

1350 FOR I = 1 TO NR 

1360 IF C(I1,0) = O THEN C(I,J) = C(I,J) - MIN 

1370 NEXT I 

1380 RO = RO + MIN 

1390 NEXT J 

1400 REM ----------mmnnmnnn anse 

1410 FOR I = 1 TO NR 

1420 FOR J = O0 TO NR 

1430 IF C(I,0) = 1 AND C(0,J) = 1 THEN C(J,I) = 1E 
+ 30 

1440 NEXT J 

1450 NEXT I 

1460 RETURN 

1470 REM ---------mmnns nee ee 


1480 REM AFFICHAGE RESULTAT 

190 REM === ss ss nnpmmennsns 

1500 GOSUB 2410 

1510 VTAB 23: PRINT : INPUT "VOULEZ-VOUS SAUVEGARD 
ER CETTE ANALYSE ?";RES 

1520 IF LEFT$ (RE$,1) = "O" THEN GOSUB 1910 

1530 REM 

1540 PRINT :R$ = "": 
ES RESULTATS ?";R$ 

1550 IF LEFTS$S {R$,1) 

1560 POKE 34,0: RUN 

1570 

1580 

1590 

1600 

1610 

1620 


INPUT "VOULEZ-VOUS IMPRIMER C 


= "O" THEN GOSUB 2710 


HOME 

INPUT "MODIFIER LA VILLE DE DEPART ? ";RES$ 

IF LEFT$ (RE$,1) < > "O" THEN PRINT : GOTO 

1650 

1630 RE$ = "": INVERSE : PRINT VD$;" ": NORMAL : IN 
PUT "NOUVEAU NOM ( ENTER=OK ) ? ";RE$ 

1640 IF LEN (RES) > O0 THEN VD$ = RES$ 

1650 INPUT "MODIFIER LE NOM D'UNE VILLE ? ";RE$ 


1660 IF LEFTS$S (RES$,1) < > "O" THEN PRINT : GOTO 
1710 

1670 FOR I = 1 TO NR 

1680 RES$ = "": INVERSE : PRINT V$(I);" “: NORMAL : 
INPUT "NOUVEAU NOM ( ENTER=OK ) ? ";RE$ 

1690 IF LEN (RE$) > O THEN VS$(I) = RE$ 

1700 PRINT : NEXT I 

1710 FOR I = 1 TO NR 

1720 IF VDS = V$(I) THEN 1760 

1730 NEXT I 
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1740 PRINT : FLASH : 
UE": NORMAL 

1750 FOR T = 1 TO 1500: NEXT : GOTO 1600 

1760 INPUT "MODIFIER UN TRAJET ? ";RE$ 

1770 IF LEFTS (RE$,1) < > "O" THEN PRINT : 

1830 
1780 INPUT "MODIFICATION DU TRAJET NUMERO ? ";IS:I 
= VAL (I$) 
INPUT " 
= VAL (J$) 
IF I > NR OR J > NR OR I = J THEN PRINT : PR 

INT : FLASH : PRINT " ERREUR ": NORMAL 

FOR T = 1 TO 1000: NEXT : GOTO 1560 

PRINT : PRINT "VALEUR ACTUELLE :";D(I,J) 

INPUT "NOUVELLE VALEUR :":D(I,J) 

PRINT : INPUT "UN AUTRE MODIFICATION ?";RES 

1840 IF LEFTS$ (RE$,1) = "O" THEN 1590 

1850 PRINT : FLASH : PRINT TAB( 5);"CALCUL EN COU 
RS ": NORMAL 

1860 RETURN 

1870 REM -------- 

1880 POKE 36,0: VTAB 23: PRINT "APPUYEZ SUR UNE TO 
UCHE POUR LA SUITE.": GET C$ 

1890 RETURN 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 VTAB 23: 
ATALOGUE) 

2100 


PRINT "VILLE DE DEPART INCONN 
GOTO 


1790 AU TRAJET NUMERO ? ";JS:J 


1800 


1810 
1820 
1830 


REM -----------------“——_—— 
PRINT 

PRINT D$; "OPEN"; NES 
PRINT D$S;"WRITE";:NES 
PRINT NR: PRINT VDS 
FOR I = 1 TO NR 
PRINT V$(I) 

NEXT I 

FOR I 1 TO NR 

FOR J 1 TO NR 
PRINT D{I,1J) 

NEXT J,I 

PRINT D$; "CLOSE" 
RETURN 


INPUT "NOM DE L'ANALYSE (? POUR LE C 
P"NES 

IF NE$ = "?" OR LEN (NES) = O THEN GOSUB 23 
70: HOME : GOTO 2090 
2110 HOME : INVERSE : POKE 36,8: 

NALYSE FICHIER .. 

2120 PRINT 
2130 PRINT D$; "OPEN";NES 
2140 PRINT D$;"READ";NES$ 
2150 INPUT NR: INPUT VDS 
2160 GOSUB 330 
2170 FOR I = 1 TO NR 
2180 INPUT VS$(I) 
2190 NEXT I 
2200 FOR I = 1 TO NR 
2210 FOR J 1 TO NR 
2220 INPUT D{I,J) 
2230 C{I,J) = D{I,J) 
2240 NEXT J,I 
2250 PRINT D$; "CLOSE" 
2260 RETURN 
2270 
2280 
2290 
2300 


VTAB 23: PRINT "A 
. "NES: NORMAL 


hi 


REM === 
IF PEEK (222) = 5 THEN VTAB 10: PRINT "ERRE 


UR FICHIER": 
GOTO 2320 
PRINT "ERREUR": SPEED= 255 

FOR IT = 1 TO 1000: NEXT 

POKE 34,0: RUN 

REM === mmmmmmmenmmememmsmmmtes 


PRINT D$;"DELETE";NE$: GOSUB 2370: 


2310 
2320 
2330 
2340 
2350 
2360 
2370 PRINT DS; "CATALOG": PRINT : 
R UNE TOUCHE": GET R$: RETURN 
2300. REM === -=smmbmpessseé esse remnn ressens 
2390 REM 
2400 REM 
HOME 
PRINT : PRINT 


PRINT MRRRARARA#EEAX EEE A EEE AE EAN 


PRINT "APPUYER SU 


SP RESULTATS 


PRINT “* ARCS DE L'ARBORESCENCE #" 
PRINT MRRRRRARRRARÉARERÉAÉÉEÉÉÉÉÉ AE 
PRINT : PRINT 
2470 NL = 0 
FOR I = 1 TOK 
PRINT "DEPART:"; LEFTS (V$(X(I1}),11);: POKE 3 
6,20: PRINT "ARRIVEE:"}; LEFTS (VS(Y{(I)),11):NL 
= NL +1 
2500 NEXT I 





2510 IF FIN = © THEN 2540 

2520 PRINT : PRINT "LE CIRCUIT NE PEUT ETRE DETERM 
INE" 

2530 PRINT " PLUS AVANT SANS ERREUR": RETURN 

2540 IF LEFTS (R$,1) < > "O" THEN GOSUB 1880 

2550 HOME : PRINT : PRINT 

2560 PRINT "LE PLUS COURT CHEMIN EST:" 

2570 PRINT "======22==222=essssss==s=" 

2580 IFR< > 2 AND R< > 3 AND LEFTS (R$,1}) < 
> "O" THEN INPUT "VILLE DE DEPART ? ";:VDS 

2590 PRINT : PRINT "DEPART : "+ PRINT 

2600 FOR I = 1 TO NR 

2610 FOR J = 1 TO NR 

2620 IF VD$ = VS(X(J)) THEN PRINT VS$S(X(J)):VDS = 


VS$(Y(J)): GOTO 2660 
2630 NEXT J 


2640 PRINT : FLASH : PRINT "VILLE INCONNUE": NORMA 
L 

2650 FOR T = 1 TO 1500: NEXT : GOTO 2550 

2660 NEXT I 

2670 PRINT VDS 

2680 PRINT : PRINT "ARRIVEE" 

2690 RETURN 

2700 REM -------- 

2710 REM LISTING IMPRIMANTE 

2720 REM -------——— 

2730 PRINT D$;"PR£3" 

2740 PRINT : PRINT D$;"PR£1" 

2750 PRINT CHRS$S (27); CHR$ (64): REM INIT IMPRIM 
ANTE 

2760 PRINT T$; 

2770 PRINT : PRINT CHR$ (27); CHR$ (14);: REM GR 


OS CARACTERES 
2780 PRINT "LE VOYAGEUR:ANALYSE DU FICHIER ";NES; 
2790 REM PRINT CHR$(15): REM 132 COLONNES 
2800 PRINT CHR$ (20): REM 80 COLONNES 
2810 PRINT T$: PRINT : PRINT 
2820 PRINT MRARRRRÉARARRRAN 
2830 PRINT "*LES VILLES*" 
2840 PRINT MRRRRRARARRÉRN 
2850 FOR I = 1 TO NR 


a —————————]———————]—]_]—]__  ———— 
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2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 

O 3030 


PRINT 


PRINT 
PRINT 
PRINT 


PRINT 
FOR I 


NEXT 

PRINT 
FOR I 
PRINT 
FOR J 


3020 
3030 
3040 
3050 
3060 
3070 


PRINT 


PRINT 


NEXT I 
PRINT : 


PRINT : 





I: = ";V$(I) 


PRINT 


MRRRRRARÉRRRÉRRRRÉRRÉRAR EN 


"*MATRICE DES TRAJETS*" 
TRRAARRARÉRRÉRRRRRRAAARÉN 
PRINT 

État 

= 1 TO NR 


POKE 36,1 * 5 + 1: PRINT I; 


: PRINT LEFT$S (T$,NR * 5 + 4) 
= 1 TO NR 
Ein Po 


= 1 TO NR 


POKE 36,J * 5: IF I = J THEN PRINT "O";: GOT 


PRINT Di{I,J); 
NEXT J 
PRINT : 


NEXT I 
LEFTS (T$,NR * 5 + 4) 


GOSUB 2420 


: PRINT D$;"PR£3": PRINT CHR$ (21): PR 


INT : POKE 34,0: RUN 


3080 REM - 


3090 


3100 REM - 
HOME : 


3110 
3120 
3130 
3140 
3150 
3160 
e" 
3170 PRINT 
e" 
3180 PRINT 
3190 PRINT 
u" 
3200 PRINT 
3210 PRINT 
3220 PRINT 
3230 PRINT 
3240 PRINT 
3250 PRINT 
3260 PRINT 
3270 PRINT 
3280 PRINT 
3290 PRINT 
3300 PRINT 
3310 PRINT 
3320 PRINT 
3330 PRINT 
3340 PRINT 
3350 PRINT 
3360 PRINT 
e" 
3370 PRINT 


3380 PRINT 
3390 PRINT 
er" 
3400 
3410 
3420 
3430 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT 
PRINT 
PRINT 
PRINT 


SPEED= 110 

"Ce programme à été développé à partir 
"du modéle de LITTLE appelé également" 
"modéle du voyageur de commerce." 

"Il permet de déterminer le trajet" 
"optimal à suivre, lorsque sur un graph 
"on veut passer par tous les repéres un 


"seule fois et une seule." 
"Ce modéle correspond donc éxactement à 


"problème du voyageur de commerce qui” 
"doit visiter plusieurs villes en 
"minimisant par exemple la distance à" 
"parcourir." 


"Pour poser le problème, il faut " 
"déterminer la matrice des couts du 
"voyage de ville à ville.Ces couts" 
"peuvent etre exprimés en francs, en" 
"en litres d'essence, ou en kilométres" 
"Il peuvent etre différents à l'aller" 
"et au retour.'": PRINT 

: PRINT "EXEMPLE:" 

"Un voyageur désire se rendre une fois 
"et un seule dans 5 villes différentes. 


"Le but est de déterminer la tournée qu 
"le voyageur doit réaliser pour parcou- 
"-rir le moins de kilométres possibles. 
"Il faut tout d'abord établir la matric 


"de saisie:" 
: PRINT "TRAJET: 1 2 3 4 5" 


" 1 0 21 35 19 14" 





3440 PRINT " 2 360 483 
5 42” 
3450 PRINT " 3 25 34 0 2 
sa" 
3460 PRINT " 4 10 15 22 0 
13" 
3470 PRINT " 5: 32:24 392 
9 0" 
3480 PRINT 
3490 PRINT "Ce tableau indique 
que le nombre de" 
PRINT "kilometres séparan 
t la ville 1 de 14" 
3510 PRINT "ville 2 est de 21 
à l'allée, et de 36" 
PRINT "au retour etc. 
PRINT : PRINT : PRINT "Ce 
programme à été inspiré 
par le livre” 
3540 PRINT " de JEAN PIERRE BL 
ANGER édité aux" 
3550 PRINT "éditions P.S.I. MO 
DELE PRATIQUE DE" 


3500 


3520 
3530 


3560 PRINT "DECISION.": PRINT 
: PRINT 

3570 SPEED= 255: GOSUB 1880 

3580 POKE 34,0: GOTO 90 


Les reliures 





5 
PARIS 
PARIS 
MEAUX 

SEZANNE 
TROYES 
MELUN 
1E+30 
44 
139 
107 
54 

47 
1E+30 
53 
134 
56 
139 
59 
1E+30 
64 

93 
112 
139 
68 
1E+30 
128 
56 

54 

90 
122 
1E+30 


Fichier TEXT de démonstration 


600 TIC Franco - Bon de commance page 14 





Pom's n° 31 











a présentation de 
Turbo-Pascal, de 
4 Nicolas Montsarrat 
“* dans Pom’s 23, 
nous avait donné un 
avant-goût de l'utilisation du 
graphisme sous ce langage. 
Le programme GRAPH.PAS 
illustrait une solution au 
principal reproche adressé à 
Turbo-Pascal : l'absence de 
graphisme. 
Nous avons repris à notre compte 
l'objectif initial, c'est-à-dire 
disposer d'un ensemble de 
procédures Pascal dédiées au 
graphisme HGR, en proposant 
d'exploiter la ROM du Basic 
Applesoft, écrite bien sûr en 


6502, sous le CP/M Z-80 du 
Turbo-Pascal. 


Pari gagné ! La procédure HLINE 
obtenue est beaucoup plus rapide. 
De plus, nous avons inclus 
d'autres procédures telles que 
HCOLOR, HPOS, HPLOT_TO. 





Utilisation 


Le fichier DIAG. PAS est un fichier 
source Turbo-Pascal qui contient 
la définition de l'ensemble des 
procédures graphiques. 
Rappelons qu'il n'est pas 
possible de créer des 
LIBRARIES ou des UNITS en 
Turbo-Pascal ; il n'est donc 
possible que de créer des fichiers 
inclus appelés au moment de la 
compilation. 


Le source ESSAI. PAS est un petit 
programme de démonstration qui, 
en utilisant les définitions de 
DIAG.PAS, Obtient la même 
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animation graphique que le 
programme GRAPH.PAS de Pom’s 
23. 


ESSAI.PAS n'est, bien sûr, 
fourni qu'à titre d'illustration de 
la méthode. Pour le compiler : 


transférer les fichiers DIAG. PAS 
et ESSAI.PAS de la disquette 
Pom’s vers une disquette 
CP/M à l'aide de Universal 
File Conversion (sinon, à vos 
claviers!) ; 


charger Turbo-Pascal (désolé, 
vous ne le trouverez pas sur la 
disquette Pom’s..….) ; 

dans le menu des Options du 
compilateur, demandez une 
compilation vers un fichier 
. COM et à partir de l'adresse 
5000 (sinon.….). 


La compilation de ESSAI.PAS, 
utilisant DIAG. PAS, produira un 
fichier ESSAI .coM directement 
utilisable. Les habitués du Pascal 
Apple apprécieront certainement 
la rapidité de la compilation… 


Procédures 
graphiques 


Voici la liste des procédures 
définies par DIAG. PAS : 


Hge passe en mode graphique en 
effaçant la page graphique 

Hg idem mais sans effacer 

Hplot (x,y) idem qu'en 
Applesoft (x<280, y<192) 

Hpos (x,y) place le curseur 


sur le point indiqué sans rien 
tracer 


HplotTo (x,y}) trace du 
point courant vers le point 
indiqué 


Hline (x1l,yl,x2,y2) 
trace une droite entre les deux 
points indiqués 


HgrinitCercle procédure 
d'initialisation du tracé de 
cercle ; à appeler obliga- 
toirement, mais une seule fois 
par programme 


Cercle (cx,cy,r) trace 
un cercle de centre cx,cy et de 
rayon r 


Hcolor (couleur) défi- 
nit la couleur: noir, blanc, 
ocre, bleu, vert ou rouge 


BackGround (couleur) 
définit la couleur du fond de 
l'écran 

Touche attente d'une touche 
clavier pour continuer le 
programme 


Reponse (rep) retourne le 
code ASCII de la touche 
frappée (rep est de type 
CHAR) 


Text retourne au mode texte. 
Ne pas utiliser Readln 


Texte idem mais efface l'écran 
et autorise l'emploi de 
Readln. 


Tous les paramètres numériques 
de ces procédures sont des 
entiers. 


Pendant l'activation du mode 
graphique, ïil est interdit 
d'effectuer des entrées/sorties (en 
raison de l'architecture mémoire 
de CP/M), hormis Read 
(Kbd, Variable) qui ne renvoie 
pas d'écho à l'écran ; on peut 
également exécuter un Readin 
juste avant de revenir au mode 


texte par Texte. 
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Source DIAG.PAS 
(Turbo-Pascal) 


Type 
Couleur = ( Noir, Ocre, Bleu, Blanc, Vert, Rouge ) ; 
Var 
Cosinus, Sinus : Array [ 0..90 ] of Real ; 
Procedure Jsr ( Adh,Adl : Byte ) ; 
Begin 
Men [ $F3D0 ] := Ad! ; 


Mem [ $F3D1 ] := Adh ; 
InLine  ( $2A/$DE/$F3/ 


{ Poids faible sous-programme } 
{ Poids fort "“} 
{ LD HL, $F3DE } 


$77); { LD(HL), A} 
End; 
Procedure Hge ; 
in 
Mem [ $E000 ] := 0 ; 
Mem [ $F0E6 ] := $40 ; 
Jsr ( $F3,$8F2 ) ; { Efface l'ecran du moniteur } 


Mem[$E055 ]:= 0; 

Mem [ $E052 ] = 0; 

Mem[ $E057 ]:=0; 

Mem [ $E050 ] := 0 ; 
End; 


Procedure Hg ; 
Beg 


in 
Mem [ $F0E6] := $40 ; 
Mem [ $E000 ] := 0 ; 
Mem [$E055 ] = 0; 
Mem | $E052 ] := 0 ; 
Mem | $E057]:= 0; 
Mem [ $E050 ] := 0 ; 


Procedure Hplot ( x,y : Integer ) ; 


Begin 
Mem | $F045 ]:= y ; 
Mem | $F047 ] := x Div 256 ; 
Men [ $F046 ] := x Mod 256 ; 
Jsr ( $F4,$57 ) ; 

End . 


{ Hplot du basic } 


Procedure Hpos (x,y : Integer) ; 
Beg 


in 
Mem | $F045 ] = y; 

Mem [ $F047 ] := x div 256 ; 
Mem [ $F046 ] := x mod 256 ; 
Jsr ($F4,$11 ) ; 


Procedure HplotTo ( x,y : Integer ) ; 
Begi 


in 
Mem [ $F045 ] := x Mod 256 ; 
Mem [ $F046 ] := x Div 256 ; 
Mem[$F047]:=y; 

Jsr( $F5,$3A ) ; 

Jsr( $F5,$CB ) ; : 


Procedure Hline ( x1,y1,x2,y2 : Integer) ; 


Begin 
Hpos {x1,y1 ); 





HplotTo ( x2,y2 ); 
nd . 


Procedure HginitCercle ; 
Var 
Ï: Integer ; 


Cosinus [ i] := Cos (i/360*3.14159 ) ; 
Sinus [i]:= Sin ( i/360*3.14159 ) ; 


End; 


, 


Procedure Cercle { cx,cy,r : Integer) ; 
Var 
n,Teta,x,y : Integer ; 


Procedure Print ; 





in 
UE 1) and (x<280) and (y>-1) and (y<192)) then Hplot { x,y ) ; 


, 


Procedure Ex { Var x,y : Integer) ; 
Var 


Î : Integer ; 
Begin 

le; 
Y=Xx-Cx+0cy; 
X:=i-Cy+CX; 


Procedure Exm ( Var x,y : Integer) ; 
Var 

Î ‘Integer ; 

Begin 

lsy; 

Y=CX-Xx+0cy; 

X:=Cy-i+ x; 


Repeat 
x := Trunc (r* Cosinus [ teta ] + cx ) ; 
y := Trunc (r* Sinus[ teta ] + cy ); 
Print ; 
Exm(xy); 


Pom's n° 31 





Teta = Teta+n; 
Until Teta >= 90 ; 


Procedure Hcolor { Coul : Couleur ) ; 
Var 
Valeur : Byte ; 


Begin 
Case Coul of 

Noir : Valeur := $00 ; 
Ocre : Valeur := $2A : 
Bleu : Valeur := $55 ; 
Blanc: Valeur := $7F ; 
Vert : Valeur := $AA ; 
Rouge: Valeur := $D5 ; 
nd . 


Mem[ $F0E4]:= Valeur; {Couleur de trace } 


Procedure BackGround ( Coul : Couleur ) ; 
Var 
Valeur : Byte ; 
in 


Begi 
Case Coul of 
Noir : Valeur := $00 ; 
Ocre : Valeur := $2A ; 
Bleu : Valeur := $55 ; 
Blanc: Valeur := $7F ; 
Vert : Valeur := $AA ; 
Rouge: Valeur := $D5 ; 


Mem [ $F045 | := Valeur : 
Jsr(8F3,$F4) : 


{ Couleur de trace } 


Procedure Touche; 
Var 
Rep : Char ; 
Begin 
Read { Kbd,Rep ) ; 
End . 


Procedure Reponse ( Var Rep : Char ) ; 
Read { Kbd,Rep ) ; 
End . 


Procedure Text ; 


Begin 
Mem [ $E001 ] := 0; 
Jsr ( $F3,$99 ) ; 


Procedure Texte ; 


Begin 
Mem [ $E001 ] := 0 ; 
Jsr ( $F3,$99 ) ; 
ClrScr ; 

End; 


Source ESSAI.PAS 


(Programme de démonstration 
Turbo-Pascal) 


{ Ce programme contient un exemple d'utilisation de certaines } 
{ procedures graphiques. Elles ne sont pas toutes utilisees ici. } 
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{ La liste complete est donnee dans l'article. Il ne faut pas oublier } 
{ de le compiler avec une adresse de debut de 5000. } 


Program Essai ; 


Var 
ra : Real ; 
iX,y : Integer ; 
Car : Char ; 
Caractere : Char ; 


{ Le fichier inclus Diag.Pas contient les instructions graphiques.  } 
{Il est possible de l'inclure directement au programme en le lisant } 
{ comme un bloc. Dans ce cas, la ligne ci-dessous doit disparaitre.  } 
{$IDIAG.PAS } 


in 
CirScr ; 
Writeln ( Texte avant passage en mode graphique") ; 
Writeln ( Veuillez patienter) ; 


{ HgnitCercle n'est necessaire que si l'on a l'intention d'utiliser la 

{la procedure Cercle, dans ce cas elle est indispensable. Son 

{ execution prend environ une dizaine de secondes, et permet un 

{ gain de temps dans le trace des cercles. Elle est necessaire. 
HginitCercle ; 


nn 


{ Hge fait passer en mode graphique, avec effacement } 


, 


{ Hcolor selectionne la couleur. } 
{ Les couleurs sont : Blanc, Noir, Ocre, Bleu, Vert et Rouge. } 
Hcolor ( Blanc) ; 


iz1; 
Repeat ; 


{ Cercle trace un cercle de centre et de rayon donne. } 
Cercle (8*i+10,5*i+10,9); 


i=i+1; 
Unitil i=30 ; 


r:=0.0; 
a:; 


{ Hpos positionne le curseur graphique sur l'ecran graphique. } 
Hpos(140,95); 


Repeat 
x := Trunc (140+r*Cos(a)); 
y:=Trunc( 95+r'Sin(a)); 


{ HplotTo trace une droite entre la position du curseur et la } 
{ position indiquee. } 
HplotTo (x,y ) ; 


r:=r+1.5; 
a=a+1.553; 
Until r>985 ; 


{ Text permet de revenir en mode texte sans effacer la } 
{ page texte. Attention, si l'on emploie Text, il ne faut pas } 
{ employer de Readin avant Text pour attendre qu'une touche  } 
{ soit frappee au clavier pour continuer, mais Reponse ou Touche } 
{ qui permettent d'attendre qu'une touche du clavier soit frappee } 
{ pour continuer l'execution du programme. } 





| 
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{ Leur utilisation est obligatoire si l'on veut faire une pause. 


Reponse ( Caractere) ; 
Text; 


Writeln (‘Le texte a bien ete conserve par Text’) ; 


Writeln ; 
Writein ( Touche tapee : 'Caractere ) ; 





} Writeln ; 


Writeln ( Tapez une touche pour quitter le programme") ; 
Touche ; 


CirScr ; 
End. 








Impression sur graphisme 
et mise en page sur 
Macintosh, par Andréas 
Pfeiffer, Cédic/Nathan. 


Bon ouvrage qui représente un 
renouvellement important par 
rapport à la précédente édition 
(Applications graphiques pour 
Macintosh, 1985). 

On garde les grands classiques : 
en dessin, MacPaint et ses 
satellites ClickArt et les planches 
d'images, MacDraft, MacSpace, 
Chart, SlideShow. Dans la mise 
en pages, ReadySetGo, 
MacEditeur et PageMaker. Et 
aussi MacTablet, MacVision et 
ThunderScan. 

On trouve beaucoup de 
nouveautés comme : en dessin, 
ComicWorks, Fontastic, 
FullPaint, MacBillBoard, 
MacDraw, StatWorks (il manque 
toutefois les Criket). 
Particulièrement en dessin 3D, 
SpaceËEdit, EZDraft, Mac3D, 
MacArchitrion. Et aussi Excel, 
JustText... Il manque en 
revanche 4ème dimension, ainsi 
que les nouveaux traitements de 
textes Writer + et Word 3. 


La mise en page est bonne, 
l'auteur ayant conservé 
l'astucieuse formule consistant à 
mettre en relief ses remarques 
importantes sous forme de 
fac-similés de calepins. 


En revanche, on peut lui 
reprocher, comme à son 
prédécesseur, d'être positionné 
un peu en porte à faux 
insuffisant, évidemment, pour 
servir de mode d'emploi résumé 
et, trop classique, ne laissant 
guère de place à des trucs ou 
astuces d'utilisation. 


La programmation en Basic 
avec ProDOS, InterEditions, 
265 pages. Traduit de l'anglais. 


Il s'agit d'un livre fort bien 
présenté (style manuel de 
l'ImageWriter II, manuels de 
référence) dont la reliure spirale 
facilite la consultation. 


L'ensemble des ordres ProDOS 
accessibles en Basic est abordé de 
façon didactique à l'aide de 
nombreux exemples. Le livre vise 
en priorité le nouvel acquéreur 
d'un Apple // démuni de 
documentation. 


L'index bien fait permet de 
retrouver facilement la syntaxe 
oubliée, la signification de 
l'erreur 20 ou les adresses 
mémoires affectés par un 
IN£1000 par exemple. 


L'ouvrage est accompagné d'une 
disquette comprenant de 
nombreux exemples de 
programmes, mais également de 
l'utilitaire APA qui à lui seul 
justifierait l'achat. APA donne de 
nouvelles fonctions à l'Apple // : 


Alexandre Duback. 


- numérotation automatique des 
lignes en Basic ; 

- renumérotation ; 

- fusion de programmes ; 

- suppression des REMS ; 

- listage des variable ; 

- conversions décimal/hexa.… 


Excel, La pratique, par Mary 
Campbell, InterÉditions, 512 
pages. Traduit de l'anglais. 


Voici un livre comme savent le 
faire les américains : clair et bien 
illustré, mais écrit pour des 
lecteurs au ras des pâquerettes ; la 
traduction est bien faite, ce qui est 
assez rare pour être noté. 


Nous avons trouvé dans cet 
ouvrage une lacune de première 
importance : il n'y a pas de copie 
d'écran avec les formules. 

Cela ne nous semble pas très 
sérieux de former les gens à 
l'utilisation d'un tableur sans que 
les formules ne soient 
fréquemment présentées en 
regard des feuilles de calcul. 


Par ailleurs, l'auteur ne semble 
avoir pas remarqué qu'il y avait 
des bogues dans Excel et, par 
conséquent, n'indique pas la 
façon de les contourner. 


En conclusion, nous conseillons 


plutôt le recours à d'autres 
ouvrages d'initiation à Excel. 
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Le Phom ep [eMMotuse : 


force de faire 
“joujou” avec la 
, SOUris, NOUS avons 
ä à, trouvé qu'il pour- 
rait être intéressant d'écrire 
un petit programme 
“portable” et modulaire 
pour exploiter la souplesse 
de la souris. Ainsi, ce 
programme vous permettra 
de créer des menus 
déroulants d'une manière 
simple, et sera à même de 
donner un nouveau ‘look’ à 
vos programmes. 





LEMOUSE à été écrit pour les 
Apple //c et utilise les instructions 
du 65C02, ainsi que les 
caractères de la souris. 


Fonctionnement 
du programme 


Ce programme donne un exemple 
possible du travail en Basic, avec 
les interruptions et dans un envi- 
ronnement ProDOS. Une fois 
cette routine lancée, l'utilisateur 
du programme Basic dispose 
d'une ligne de commandes acces- 
sible avec la souris. 


Le programme est quasiment 
transparent et, si par ‘hasard’ 
vous perdiez l'interruption de la 
souris (absence du curseur), vous 
pourriez toujours le reconnecter 
en passant par “&”. Ce 
programme est très simple, nous 
pouvons même envisager de 
placer la partie principale dans le 
Basic puis les tables de menus. 
en RAM et de créer une nouvelle 
commande (MOUSE par exem- 
ple). 


Pour vous donner une idée de 
“l'ambiance” créée , vous trouve- 
rez ici une série de menus dont 
seules les fonctions de ProDOS et 
MODE sont disponibles (le reste, 
vous pouvez le compléter suivant 
votre machine. il suffit d'insérer 
votre routine à l'emplacement 
FnMENUXx prévu). 


Par le menu ProDOS : vous dis- 
posez de : 


+ CATALOG, pour faire un 
catalogue normal ; 

+ EXECUTE permet d'exécuter 
le programme dont le nom est 
WORKFILE ; 

+ CHARGE, charge en mé- 
moire le programme Basic dont 
le nom est WORKFILE ; 

+ SAUVE sauvegarde sur dis- 
quette le programme Basic en 
mémoire sous le nom 
WORFILE. 


Après ‘Execute’ et ‘Charge’, 
ProDOS déconnecte la souris ; 
vous pouvez la reconnecter en 
passant par “&” 


Par le menu MODE : vous accè- 
dez à : 


* VTBL ON (vertical blan- 
king), active les interruptions 
suivant le rafraîchissement de 
l'écran ; ; ce mode est ‘dyna- 
mique” et permet d'avoir une 
gestion souple et agréable de la 
Souris ; 

* VTBL OFF, l'interruption ne 
vient que si la souris a été dé- 
placée. Pour voir la différence 
avec le premier mode, il vous 
suffit de mettre sous mode 
VTBL OFF, puis cliquer sur 
un menu et lâchez le bouton 
très doucement — si vous faites 
cela correctement, le menu 
devrait rester affiché — puis 
faites la même chose avec 
l'autre mode) ; 


+ MOUSE OFF désactive le 
travail sous interruptions de la 
souris (vous pouvez revenir 
par “&”). 


Structure du 
programme 


104-112, les noms des menus 
disponibles à afficher sur la ligne 
0 de l'écran. 

117-270, les tables des menus, 
dont la structure est la suivante : 


+ les deux premiers octets desi- 
gnent la marge gauche et droite 
de la fenêtre déroulante ; 

+ le troisième octet représente le 
nombre de fonctions (n) du 
menu, plus deux ; 

+ le quatrième octet n'est pas 
utilisé. 

+ les 7 couples d'octets suivants 
contiennent les adresses (fai- 
ble/fort) de la nième fonction 
de ce menu (Fan MENU) ; 

* viennent ensuite les caractères 
de la fenêtre à afficher (vérifiez 
que les caractères de chaque 
ligne, plus les ‘bornes’ gauche 
et droite, correspondent bien 
au nombre de caractères 
MDMENU-MGMENU+1). 


117-270, les cinq tables. 
276-283, emplacement des 
fonctions du premier menu. 


286-334, les fonctions de 
ProDOS. 
335-389, emplacement des 


fonctions des menus suivants. 

392-469, les sous-programmes. 
471-567, gestion de la carte 80 
colonnes (cela assure la compati- 
bilitée entre les //c les //e 65CO02 ; 
les possesseurs de //c pourront 
remplacer READCAR par 
PICKY et AFFCAR par COUT). 
569-674, les sous-programmes. 
676-706, affiche le ‘marqueur’ 
à gauche de la fonction choisie (si 
vous voulez avoir des caractères 
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en inverse, il suffit de changer : 


CMP #'D' 

BEQ votre routine 
d'inversion des 
caractères 

JSR <normal> 


708-886, routine de traitement 
des différents cas (bouton et de 





910-944, partie principale du 
traitement des interruptions. 
947-980, sous-programmes 
pour initialiser la “fenêtre” de la 
souris. 

985-1042, programme princi- 
pal. 

1047-1069, faire un catalogue 
en passant par l'interpréteur 
Basic. 








Nous pensons que cet utilitaire, 
du fait de sa structure modulaire, 
est simple et assez ouvert ; il est 
donc envisageable d'écrire des 
“menus” afin de constituer une 
sorte de “super boîte à outils 
fonctionnant avec des menus 
déroulants. 


À vous de jouer maintenant. 





souris). 
888-906, sous-programmes de a: 
calcul. ..e 
| 41 JMP  DEBUT 
‘ ; 
Programme ‘START.MOUSE 2 
44 
45 
10 PRINT CHR$ (4) ; "-LEMOUSE3.0.C" 46 SENSI DFB $03 sprécision de la souris 1-4 
20 HOME : PRINT " ASSUREZ QUE VOTRE SOURI 47 BASLM DFB $00,$04 
" 48 BASLM2  DFB $00,$00 
S,EST EN. PEACE 49  MHORI DFB S$00,$00 
60 PRINT : PRINT CHR$ (4);"CATALOG" 20 MURS ABB 800 
70 GET AS$ 51 MVERTIZ2 DFB S$00 
52 OLDCAR  DFB $A0 
53 
Programme ‘WORKFILE” 54 NFLAG DES 00 
55 NFLAG2 DFB 00 
56 MGMENU DFB 00 
Il s'agit du programme sur lequel vous travaillez L . HA . . 
habituellement. Il peut être lancé de façon directe 59 
| 60  XTAMP DFB 00 
| par le startup. 1 
62 * 
€ , 63 MAXMENU DFB 6 
| Source ‘LEMOUSE 3.0 a ie 
| Assemblage par ProCODE 65 
| 66 * 
| d: À 67 MAXFEH DFB 79,00 sici 80 col 
| 2 * 68 MAXFEV  DFB 23 ;et 24 ligne 
| 3 féhhhthhhhtttititététététhak 69 * 
4 * D 70 CALCTAM DFB $00 
5 * LEMOUSE 3.0 * 71 TAMPON  DFB S$AO 
6 * par Le Pham HIEP 8/85 * 72 
7 * * 73 
| 8 Éthhhhtahhhthtthittiéiééétaaté 74 
| 9 « 75 
| 10 76 INTMODE DFB $OF ;mode d'interruption de la 
11 ORG  $7000 souris | 
12 IRQ = S3FE 77 N DFB $04 sn du slot souris 
13 78 CN DFB $C4 ;CN 
14 COUT = $SFDED 79 NO DFB $40 ;n0 
15 80 Rhtthttttt té ét tt 
16 BASL = $28 81 * 
17 82 TABMENU DA  MENUI ;la pomme 
18 WNDTOP = 522 83 DFB 1 
19 84 DA  MENU2 ;prodos 
20 INVFLG = $32 85 DFB 5 
21 * 86 DA  MENU3 #basic 
22 87 DFB 14 
23 88 DA  MENU4 smonitor 
24 89 DFB 22 
25  ETATM = $778 90 DA  MENUS simprimant 
26 YH = S$S5F8 91 DFB 32 
27 YL ne $4F8 92 DA MENU6 smode 
28 XH = $578 93 DFB 44 
29 XL = $478 94 DA XXXX 
30 SETMOUSE = $12 95 DFB 51 
31 SERVEMOUSE = $13 ; 96 
32 READMOUSE = $14 97 * 
33 CLEARMOUSE = $15 98 * 
34  POSMOUSE = $16 99 * ETC 
35  CLAMPMOUSE = S$17 100 * 
36 HOMEMOUSE =  S18 101 
37 INITMOUSE =  $19 102 ORRARARARARRR ARR ÉAAR ARR ARR ER AÉÉAARER AE À 
38 103 
33 * 104 TITRE  HEX 41 
40 105 ASC "  PRODOS" 
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106 ASC " BASIC" 192 DA FA4MENU4 
107 ASC " MONITOR" 193 ProDOS 
108 ASC " IMPRIMANT" 194 ASC "_'! 


109 ASC MODE" 195 ASC "List " 
110 DFB 00 196 ASC 'z' 110 
111 197 ASC 1! | 
112 198 ASC "Hexa L 
113 199 ASC !'z! 

114 RARRRRRRRRRRRRRRRR RÉ RAR RRRhhhhhhhR 200 ASC U U 
115 201 ASC "Registre Le 
116 202 ASC 'z! 

117 MENUI DFB 00,16 : MGMENU MDMENU 203 ASC !! 

118 DFB 05,00 :2 fctnt2 204 ASC "Execute " 
119 205 ASC "2" 

120 DA FIMENUI1 206 ASC  'LLLLLLLLLLL' 
121 DA F'2MENUI1 207 

122 DA F3MENUI1 208 
123 203 

124 ASC "{c) Le P&TAM 85" D10, Ésmmmmmassentane mn 
125 HEX SA 211 

126 HEX 5F 212 

127 ASC "Calculette * 213 MENUS DFB 31,41 

128 HEX  5A 214 DFB 08,00 

129 ASC "_' 215 

130 ASC "Date e 216 DA FIMENUS 

131 ASC 'z' 217 DA F2MENUS 

132 218 DA F3MENUS 

133 ASC '"LLLLLLLLLLLLLLLL'" 219 DA F4MENUS 

134 220 DA FSMENUS 

135 221 DA F6MENUS 

136 #--- mm 222 

137 223 ASC !'_' 

138 224 ASC "Listing " 

139 MENU2 DFB 04,16 225 ASC 'Zz ! 

140 DFB 06,00 226 ASC "Text 40 " 

141 227 ASC "'z "' 

142 DA FIMENU2 228 ASC "Text 80 " 

143 DA F2MENU2 2239 ASC !'Z_" 

144 DA F3MENU2 230 ASC "Hgr 1 Le 

145 DA F4MENU2 231 asc ‘'z 

146 232 ASC "Hgr 2 ” 

147 HEX 5F 233 ASC 'Z 

148 ASC "Catalogue " 234 ASC "DHGR e 

149 HEX SA 235 ASC 'z' 

150 236 

151 HEX 5F 237 ASC  'LLLLLLLLLL' 

152 ASC "Execute " 238 

153 HEX SA 239 

154 HEX 5F EE ni 
155 ASC "Charge id 241 

156 HEX  5A 242 

157 HEX 5F 243 MENU6 DFB 43,57 

158 ASC "Sauve ee 244 DFB 05,00 

159 HEX SA 245 

160 246 DA FIMENU6 sprodos on 
161 ASC  'LLLLLLLLLLLL' 247 DA F2MENU6 sprodos off 
162 248 DA F3MENU6 

163 249 

164 om mmmmmmmmmm———— 250 ASC "_! 

165 251 ASC "VTBL OFF " 
166 252 ASC 'Z' 

167 MENU3 DFB 13,24 253 ASC !_! 

168 DFB 04,00 254 ASC "VTBL ON 
169 255 ASC 2! 

170 DA FIMENU3 256 ASC !_! 

171 DA F2MENU3 257 ASC "MOUSE OFF = 
172 258 ASC 'z' 
173 HEX 5F 259 

174 ASC "RENUMBER " 260 ASC 'LLLLLLLLLLLLLL' 
175 HEX SA 261 

176 HEX 5F 262 Yemnmnemnmmmmmmmmmmmmmem—— 
177 ASC "SEARCH " 263 
178 HEX SA 264 MENU7 = * 
179 265 
180 ASC "LLLLLLLLLLL!' 266 RÉRRRRRR RER ÉRRRRRR ARR ARRRÉ 
181 267 XXXX EQU * 
182 268 DFB $CC,$CS 

193 t--mmmmmmmmmmmms—— 269 DFB 00 
184 270 DFB 00 
185 271 
186 MENU4 DFB 21,32 272 
187 DFB 06,00 273 
188 274 
189 DA FIMENU4 275 RARARARRRRRRÉRÉRRAR ARR ÉÉ ER 
190 DA F2MENU4 276 FIMENUI EQU * 
191 DA F3MENU4 277 RTS 
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278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
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F2MENU1 


F3MENUI 


FIMENU2 


F2MENU2 


EXEC 


F3MENU2 


LOADW 


F4MENU2 


SAVENW 


F1MENU3 


F2MENU3 


FIMENU4 


F2MENU4 


F3MENU4 


F4MENU4 


FIMENUS 


F2MENUS 


F3MENUS 


EQU 
RTS 


RTS 


RTS 


#<CATALOG 
#>CATALOG 
COMMAND +1 
COMMAND +2 
CONT 


#<EXEC 
#>EXEC 
COMMAND +1 
COMMAND+2 
CONT 


"-WORKFILE" 
8D00 


#<LOADW 
#>LOADW 
COMMAND +1 
COMMAND +2 
CONT 


"LOAD WORKFILE" 
8D00 


# <SAVEW 
#>SAVEW 
COMMAND +1 
COMMAND +2 
CONT 


"SAVE WORKFILE" 
$8D, 00 


* 


EE —_——_——___—_—__———_______——_—— -———— 


—————————  — — ———— — —_—_—_—_—"—""—" ———] — ——————p 


RTS 
F4MENUS = * 
RTS 
FSMENUS = * 
RTS 
F6MENUS = * 
RTS 
FIMENU6 = * 
LDA #$07 sl'interruption vient du mo 


uvement de la souris 
STA  INTMODE 


F2MENU6 = * 
LDA #$0F sl'interruption vient du ra 
ffraichisement d'ecran 
STA  INTMODE 


RTS 

F3MENU6 = * sdesactive la souris 
LDA #$01 ; souris en mode passif 
STA INTMODE 
RTS 


RARRRRR RER EA E A À AE À À AE A A 


* rout acti Mouse 

* input : Ÿ setmouse, servemouse....., À mode eventu 
lie 

* utl DRE. 2 4 


* output: rien 
RRRRRRRRARRÉRÉARRARRARRRRR ARR RÉ ÉÉÉRÉARÉRRR RÉ 


LEMOUSE LDX S$C400,Y 

STX  XXMOUSE+1 
SMOUSE LDX CN 

LDY NO 
XXMOUSE JSR S$C400 

RTS 


RÉRARRÉRÉRRRARARÉRAÉÉÉÉÉÉÉÉÉÉAÉÉÉ EE 


*rout utl prodos via MLI 
*entré :À fctn code 


Æ :XY adr du parametre (faible fort) 
*appel : JSR LEPRODOS 
*sorti :cf manuel 


AAAÉRARRR ARR ARE ER tt ER 


LEPRODOS STA LEPRO1+3 
STX LEPROI+4 
STY LEPROI+5 
LEPROI JSR $BFO0 
DFB 00 
DA SFFFF 
RTS 


RARRRRRRRRRRE RARE 


ALLOCM = # 
LDY  #SETMOUSE 
LDA INTMODE 
JSR LEMOUSE 


RTS 


RARARRRÉRRRRRR RE SE ÉÉÉÉNÉ AN A À À À À À À À À 
* 

*TFER calcul 16 bits 

*ftnc :(AY)/(2"sensi) => (AY) 
*entré:AY valeur cal 


*util :tout 
RRRRRRRRRÉAÉÉR RÉ RE À À À À dd À à À à À À à # 


TFER LDX  SENSI 
STY CALCTAM 
CLC 


TFERI1 ROR 


——————————_—_——]— 
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447 ROR CALCTAM 533 





448 DEX 534 *40 col 

449 BNE TFERI 535 JSCRN4O LDY YSAVE1 

450 LDY CALCTAM 536 BVS ]STOR40 

451 RTS 537 PLA 

452 538 LDA (BASL),Y 

453 RARRRRRRRR RAR RÉ RÉ RRRRRRRRRRtR 539 PHA 

454  *TFERINV 540 BVC JEXIT 

455 *fctn : AY * 2°SENSI => AY 541 

456 * 542 JSTOR4O PLA 

457 RRRRARRRARRAR RAR R RAR RRRRRRh à 543 PHA 

458 544 STA (BASL),Y 

459 TFERINV LDX SENSI 545 

460 STY CALCTAM 546 JEXIT PLA 

461 CLC 547 LDY YSAVE1 

462 CLD 548 RTS 

463 JINV ROL CALCTAM 549 RRRRRRR RAR RSR Rte 
464 ROL 550 * 

465 551 * 

466 DEX 552 READCAR EQU * 

467 BNE JINV 553 CLV 

468 LDY CALCTAM 554 JSR SCREEN 

469 RTS 555 RTS 

470 556 * 

471 RRRRARRARÉARARRRRR ARR RAR RAR RÉ À 557 * 

472 # SCREEN 558 Rhthhhtthtthithttéététht# 

473 *(extrait de la routine de 80 col) 559 AFFCAR  EQU * saffiche le caractères ds À 
474 * 560 PHA 

475 #*fctn :prend ou met le car 561 BIT INVFLG sINVFLG = $ 32 
476 *entré :V=0 pr store 562 BMI ]STORE2 

477 * V=1 pick 563 EOR #$80 scar inversé 
478 * À car à stocker 564 JSTOREZ2 BIT SEV # (SEV)=$60 
479 * Y pos hori 565 JSR SCREEN 

480 *sort :À car eventuel 566 PLA 

481 * 567 SEV RTS 

482 AARRÉRRRRRRRRRRRRÉ RER EE ER ÉÉ É 568 

483 RD80VID = SCO1F 569 RRARRRRRRRRRRRRRRRt 

484  YSAVE1 = $1r 570 *AFCURM affi curseur saugarde le car ds OLDCAR 
485 TXTPAGEL = $C054 571 * 

486 TXTPAGEZ = $co55 572 

487 * 573 AFCURM EQU * 

488 * 574 JSR SBASL 

489 SCREEN EQU * 575 JSR NEWXYM 

490 STY YSAVE1 ;YSAVE1= $1F 576 TYA 

491 PHA 577 JSR MBASCALC 

492 #*eviter de changer V via BIT 578 LDY MHORI 

493 LDA RD80VID F3 579 JSR READCAR 

494 BPL ]SCRN40 sbra si 40 col 580 STA OLDCAR 

495 * 581 

496 *80 col 582 LDA #$42 

497 * 583 AFCURM2 LDY MHORI 

498 LDA YSAVE1 584 JSR AFFCAR 

499 LSR 585 JSR RBASL 

500 TAY 586 

501 BVS ]STOR80 587 RTS 

502 * 588 

503 *80 col pick car 5893 RRRR ARR ARR RRttttRtRtthttt tt ttt* 
504 * 590 * AFOLDCAR 

505 PHP 591 * affiche le caractères qui se 
506 SEI | ;blocq IRQ pr screenholes 592 * trouvait sous le curseur de la 
507 LDA  TXTPAGE2 ; TXTPAGE2= $CO055 593 * souris 

508 BCC ]SCRN2 594 * 

509 LDA TXTPAGE1 ; TXTPAGE1= $C054 595 * 

510 }SCRN2 LDA {BASL),Y ; BASL = $28 596 AFOLDCAR EQU * 

511 TAY 597 JSR SBASL 

512 LDA TXTPAGEI 598 LDA MVERTI 

513 PLP 599 JSR MBASCALC 

514 PLA 600 LDA  OLDCAR 

515 TYA 601 JSR AFCURM2 

516 PHA 602 

517 BVC jEXIT 603 RTS 

518 604 

519 JSTOR80O PLA 605 

520 PHA 606 ARRÉRRRRÉARRÉRRRRÉRRRRRÉRÉRR RAR RÉ 
521 PHP 607 * 

522 SEI 608 

523 PHA 609 CBASLM EQU * 

524 LDA TXTPAGE2 610 LDA BASL 

525 BCC ]SCRN3 611 STA BASLM 

526 LDA  TXTPAGE1 612 LDA BASL+1 

527 613 STA BASLM+1 

528 J]SCRN3 PLA 614 RTS 

529 STA ({BASL),Y 615 

530 LDA TXTPAGEI 616 

531 PLP 617 RÉARRÉARRRRRÉRRRRRRRÉRRRRRÉARÉR RÉ ÉÉÉRÉ 


532 BVS jEXIT 618 *SBASL sauvegarde la position actuelle du curseur 

















] EFMARQ 
RBASL 


D A fé ff À À 6 À À à à À à à 


* routines de detection et analyse 


les différentes 


* cas vient du click du bouton 


619 * 703 DEX 
620 SBASL LDA BASL 704 BNE 
621 STA BASLM2 705 JSR 
622 LDA BASL+#1 706 RTS 
623 STA BASLM2+1 707 
624 RTS 708 
625 709 * LETTIRQ 
E26 AMAR RAAA RARE RARE É ER EEE A À À À 710 
627 *RBASL recupere laposition du curseur 711 
628 * 712 #* 
623 RBASL LDA  BASLM2 713 LETTIRQ EQU 
630 STA BASL 714 LDX 
631 LDA  BASLM2+1 715 LDA 
632 STA BASL+1 716 ROL 
633 RTS 717 ROL 
634 718 ROL 
635 AARXER EE RE RAR ARR RAR HA À À À M 719 AND 
636 * NEWXYM 720 ECR 
637 * calcule la nouvelle position 721 BEQ 
638 * du curseur de la souris 722 DEA 
639 * 723 BEQ 
640 NEWXYM EQU * 724 DEA 
641 725 BEQ 
642 LDX  #$04 726 
643 727 BIT60 = 
644 LDA 5578,X sprend le poids fort 728 RTS 
645 LDY $478,X ; puis faible de la positio 729 
n horizontal 730  BIT61 EQU 
646 JSR TFER ; puis divise par 2"sensi 731 LDA 
647 STA MHORI+1 smettez le resultat dans MH 732 BEQ 
ORI, +1 733 LDA 
648 STY MHORI ; pour AFFCURM plus tard 
649 734 BEQ 
650 LDX #$04 
651 LDA S5F8,X sde meme pour la position 735 JSR 
652 LDY $4F8,Xx ; vertical 736 J]FOK RTS 
653 JSR TFER 737 
654 STY MVERTI 738 
655 RTS 739 BIT70 EQU 
656 740 LDA 
657 ÉRRRE E A o ù f f  é  À  # 741 BEQ 
658 #*#** remise à zéro de tous le drapeaux 742 JSR 
659 * 
660 . 743 LDA 
661 ZERO EQU * ssi //e remplace lda #00 744 BEQ 
662 STZ NFLAG ssta nflag .... 745 INA 
663 STZ MVERTI2 746 CMP 
664 RTS 747 BPL 
665 RAA AE ER RE EE EE 748 ASL 
666 * PMENU & SCAR 749 TAX 
667 * routines pour sauvergarder et charger 750 JSR 
668 * les caracteres du menu à afficher 751 STA 
669 * 
670 PMENU LDA S$FFO00,X 752 INX 
671 RTS 753 JSR 
672 754 STA 
673 SCAR STA S$SFFO0,X 
674 RTS 755 
675 756 TOTO JSR 
676 RÉRARRARARAREARAER AREA R ARR A 757 RTS 
677 * MARQ 
678 * affiche le marqueur à gauchea 758 
679 * du fonction choisit 759 
680 * 760 BIT70X JSR 
681 MARQ = * 
682 USR SBASL 761 JSR 
683 LDX #2 762 F RTS 
684 763 
685 KK LDA MVERTI2 764 
686 BNE  JEFMARQ 765 BIT/1 EQU 
687 LDX #1 766 
688 LDA MVERTI 767 LDA 
689 JEFMARQ USR MBASCALC 768 BNE 
690 769 
691 LDY MGMENU 770  JCONTI LDA 
692 JSR READCAR 771 BEQ 
693 CMP #"! 
694 BEQ ]MARQ2 772 
695 CMP #'Dp' 773 SNOMENU JSR 
696 BNE  ]MARQI 774  NOMENU RTS 
697 LDA #' ! 775 
698 BNE ]MARQI 776 
699 JMARQ2  LDA #'D' 777 BIP1 = 
700 }MARQ1 JSR AFFCAR 
701 LDA MVERTI 778 LDX 
702 STA MVERTI2 


——————_—_—_———————————————————…—…—…—…—…—…——— 
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* 


#04 
$778,X 


* 
NFLAG 
JFOK 
MVERTI 
1FOK 


MARQ 


* 
NFLAG 
F 
BIT70X 
MVERTI 


NFCTN 


PMENU 
TOTO+1 


PMENU 
TOTO+2 


$0000 


AFFMENU 


ZERO 


ZERO 


#$00 


son arrange d'abord les 
: bit du registre d'etat 
s de la souris 


Bouton est encore appuiée 
‘Bouton vient etre appuiée 
Bouton vient etre relaché 


Bouton est encore relaché 
; pas d'utilisation 


;sBouton reste appuié 

ssi le menu pas affiché 

;: alors fin 

‘si non regarde est on sur 
la première ligne 

;: si c'est le cas pas de "m 
arqueur" 


5 


sBouton vient etre relaché 
steste si un menu affiché 

; Ou non 

;si oui recupères l'ecran s 
ous le menu 


spuis prépare le vecteur du 
; JSR FnMENUx en TOTO 


; charge le poids faible de 
FnMENUx 


RU 


; charge le poids fort de F 
nMENUx 


‘saut à FnMENUx 
‘puis retourne au prog. pri 
ncipal 


saffiche l'ancien ecran sou 
s le menu 
sremet les drapeaux à zéro 


;Bouton vient d'etre appuié 


smenu deja aff 


son est pas à la ligne O0 do 
nc pas de menu. à afficher 


GA 


Lo 


srecherche quel est le Menu 
à afficher puis l'affiche 

; en sauvegardant les carac 
tères qui se trouvent 
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1BOU 


]F1 


JCONTI 
AFFO 


SUITE 


JCONTI 


AFFMENU 


LDA MHORI ; sous le Menu 854 
LDY  MAXMENU 855 
INY 856 
= s ‘Boucle de recherche le num 857 
ero du menu (dans NFLAG) 858 
DEY + à afficher 8539 
BMI  SNOMENU 860 
INX 861 
INX 862 
INX 863 
INC NFLAG 
864 
CMP TABMENU-1,X; A-(TABMENU-1,X) 865 
BEQ F1 ‘ cas particulier le curseu 866 
r pointe sur le premier 
# caracteres du nom du menu 867 
BPL }BOU F 
868 
JSR SBASL / Sauvegarde la position act 869 
uelle du curseur 870 
871 
LDA #00 
JSR  MBASCALC 872 
LDY MHORI 873 
JSR READCAR sprend le caractères sous 1 874 
e curseur 875 
PHA 876 
877 
JSR RBASL 878 
PLA 8739 
CMP #"r ssi c'est l'espace alors pa 880 
s de menu à afficher 881 
BEQ SNOMENU 882 
883 
DEC  NFLAG ssi non ajuste le numero du 
menu 884 
DEX ; et X pointeur de la table 885 
DEX 
DEX 886 
887 
EQU * 888 
LDA NFLAG 889 
STA BREAKF 890 
891 
= a 892 
LDY TABMENU-3,X 893 
894 
LDA TABMENU-2,X 895 
BEQ  SNOMENU 896 
897 
= # 898 
STA SCAR+2 ‘ici on charge pointeurs 899 
STA PMENU+2 srecuperation et affichage 900 
STY SCAR+1 ; des car du menu et sous 1 901 
e menu 902 
STY PMENU+1 903 
904 
ASL NFLAG 905 
ASL NFLAG 906 
ASL NFLAG 907 
ASL NFLAG snl menu du premier niveau 9308 
‘possibilite de creer des m 909 
enu déroulant de 2 niveaux 910 
LDX #00 911 
JSR PMENU 912 
STA MGMENU son charge la marge gauche 913 
, droite , 914 
INX 915 
JSR PMENU A 916 
STA MDMENU 917 
INX 
JSR PMENU : puis le nombre de lignes 918 
du menu 843 919 
BEQ SNOMENU sassure le coté droite ( ca 920 
Ss particulier }) 921 
922 
STA NFCTN 923 
ASL 924 
TAX 925 
STX XTAMP set maintenant index X poin 926 
te sur le premier 
; caractères à afficher 927 
= * 928 
JSR SBASL 


X0 PHA 


X1 JSR 


RTS 


XTAMP 

#01 

MBASCALC 

MGMENU 

READCAR 

#'D' scas particulier ou le cara 
ctere est le marqueur 

X2 

Ft ; alors remplace par le car 
àctere de la borne gauche 
; sauvegarde le caractere su 
r l'ecran ds la pile 

PMENU scharge le caracteres a aff 
icher 

AFFCAR ; on l'affiche 

SCAR ; sauvegarde le caractere de 
l'ecrar a la place du menu 

MDMENU 

X1 

NFCTN sa-t-on affiché les lignes 

X0 

RBASL ;si oui recupere la positio 
n current du curseur 
set revient au programme pr 


incipal 


RRRARRAÉRÉRÉÉRÉRÉRRAR ARR RER 


* calcule l'addresse de la ligne À 


* 


MBASCALC PHA 
LSR 
AND 


MBASC2 


STA 
RTS 


#$03 
#$504 
BASL+1 


#$18 
MBASC2 
#57F 
BASL 


BASL 
BASL 


RÉARRRRRRRRRRÉARRAÉRÉRÉRÉRÉRRRRRRARRRÉ 


ÉARARRARRARÉARÉRRÉ RE REA À À À À ES À À À À À À 


TRAITIRQ EQU 
PHA 
PHX 
PAY 


CLD 
LDY 


JSR 
BCS 


LDY 
LDA 
JSR 


JSR 


LDY 


* 


spour les 6502 
; TXA PHA 
sauvegarde des registres 


#SERVEMOUSE; regarde si l'interuption v 
ient bien de 
LEMOUSE F la souris 


JFIN 

#SETMOUSE ;si c'est le cas 

#$01 

LEMOUSE + alors désactive l'interru 


ption 


AFOLDCAR saffiche le caractere qui à 
ete sous le curseur 
#READMOUSE ;a jour l'etat et position 


de la souris 








929 JSR 
930 
931 JSR 
932 JSR 
933 
934 
935 CLC 
936 JFIN LDY 
937 LDA 
938 JSR 
939 
940 PLY 
941 PLX 
942 PLA 
943 
944 RTI 
945 
946 
947 
948 * 
949 * 
950 * 
951 * 
952 * 
953 * 
954 INITPOSM EQU 
955 LDA 
956 STA 
957 STA 
958 LDY 
959 LDA 
960 JSR 
961 STA 
962 STY 
| 963 TXA 
964 LDY 
965 JSR 
966 * 
967 TXA 
| 968 STA 
969 STA 
970 LDY 
971 TXA 
972 JSR 
973 STA 
974 STY 
975 TXA 
976 INA 
977 LDY 
978 JSR 
| 979 
| 980 RTS 
981 
982 * 
983 * 
984 * 
985 DEBUT EQU 
986 JSR 
987 JSR 
988 
989 JSR 
990 LDA 
991 STA 
992 
993 LDA 
994 JSR 
995 
996 LDY 
997 JBOU LDA 
998 BEQ 
999 JSR 
1000 INY 
1001 BNE 
1002 
1003 JFIN LDA 
| 1004 JSR 
| 1005 LDA 
1006 LDY 
1007 JCON JSR 
1008 DEY 
1009 BPL 
1010 JSR 





INITPOSM initialise la fenetre 


LEMOUSE 

LETTIRQ straitement des "clicques" 

AFCURM saffiche la nouvelle positi 
on du curseur 

#SETMOUSE ;remet mode d'interuption 

INTMODE 

LEMOUSE 


s recupere 
la sortie 


les registres a 


RRRRÉRERRARÉRR ARR ÉÉRÉ RH AA ARR RÉ E À 


de la souris 


la fenetre de la souris sera calculée par 
la potsition maximum horizontale (puis verticale) 
en multipliant par 2*SENSI 


* 


#00 

$478 
$578 
MAXFEH 
MAXFEH+1 
TFERINV 
$5F8 
$4F8 


#CLAMPMOUSE 
LEMOUSE 


$478 
$578 
MAXFEV 


TFERINV 
$5F8 
$4F8 


#CLAMPMOUSE 
LEMOUSE 


RÉRÉRRRARÉARRARRÉR ARR ÉRARRÉRÉRÉRÉÉRÉRA RER 


DEBUT du programme 


* 


$Cc300 
$FB39 


sactive la 80 col 
sfenetre standard 


$FCS58 
#2 
WNDTOP 


;: HOME 
;sfixe marge haute de ecran 


#00 
MBASCALC saffiche la premiere ligne 


de commande 


#01 
TITRE-1,Y 
JFIN 
AFFCAR 


1BOU 


#01 
MBASCALC 
# Ts L 

#79 
AFFCAR 


saffiche le grand trait 


JCON 
SFC58 
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Récapitulation 
LEMOUSE3.0.C 


Après avoir saisi ce code 


RÉRRRRAR ARR AR ARR RÉ 


CONT 


* 


* CATALOG SOUS PRODOS 


COMMAND 


COMFIN 


MESEROR 


* 


CATALOG 


RTS 


EQU 


LDX 
LDA 
STA 
CMP 
BEQ 
INX 
BRA 


JSR 
rts 


LDA 
JSR 
RTS 


ASC 
HEX 


sous moniteur, vous le 
sauvegarderez par 

BSAVE LEMOUSE3.0.C, 
A$7000,L$601 


7000- 
7008- 
7010- 
7018- 
7020- 
7028- 
7030- 
7038- 
7040- 
7048- 
7050- 
7058- 
7060- 
7068- 
7070- 
7078- 
7080- 
7088- 


Lie] 
00 
00 
00 
01 

71 

F3 
p2 
c2 
CD 
A0 
C1 

C4 
71 

A0 
CD 
EC 
A0 


75 
00 
00 
0F 
70 
61 

33 
C4 
D3 
CE 
c3 
D4 
00 
71 
ES 
B8g 
F5 
A0 


03 
00 
06 
04 
05 
71 
41 
cF 
c9 
c3 
CD 
A0 
00 
FF 
A0 
B5 
EC 
A0 


00 
A0 
00 
C4 
F5 
20 
A0 
D3 
c3 
D4 
Do 
A0 
10 
71 
DO 
SA 
ES 
SA 


04 
Go 
4F 
40 
70 
B7 
A0 
A0 
A0 
CF 
D2 
A0 
05 
A8 
A6 
SF 
F4 
SF 


#$0F 
INTMODE 
# _" 
OLDCAR 


#INITMOUSE ;active la souris 
LEMOUSE 





INITPOSM sdéclare la taille de la fe 
netre à travailler 
#CLEARMOUSE 
LEMOUSE 
#SETMOUSE 
INTMODE 
LEMOUSE 
#<TRAITIRQ 
#>TRAITIRQ 
$3FE 
S3FF 
7090- F4 ES AO AO A0 A0 AO A0 
#$4C 7098- A0 AO A0 AO SA 4C 4C 4C 
$3F5 70A0- 4C 4C 4C 4C 4C 4C 4C 4C 
#$00 70A8- 4C 4C 4C 4C 4C 04 10 06 
$3F6 70B0- 00 00 72 10 72 2B 72 4A 
#570 70B8- 72 5F C3 El F4 El EC EF 
$3F7 70C0- E7 F5 ES A0 SA 5F C5 F8 
70C8- ES E3 F5 F4 ES AO AO A0 
70D0- SA 5F C3 E8 El F2 E7 ES 
70D8- AO AO A0 AO 5A 5F D3 El 
70E0- F5 F6 E5 AO A0 AO A0 AO 
70E8- 5A 4C 4C 4C 4C 4C 4C 4C 
70F0- 4C 4C 4C 4C 4C OD 18 04 
£ 70F8- 00 69 72 6A 72 5F D2 CS 
7100- CE DS CD C2 C5 D2 A0 5A 
7108- 5F D3 C5 Cl D2 C3 C8 A0 
7110- AO A0 5A 4C 4C 4C 4C 4C 
7118- 4C 4C 4C 4C 4C 4C 15 20 
7120- 06 00 6B 72 6C 72 6D 72 
#00 7128- 6E 72 5F CC E9 F3 F4 AO 
CATALOG, X 7130- A0 A0 AO A0 5A 5F C8 ES 
$200,Xx 7138- F8 El A0 A0 A0 AO A0 5A 
#58D 7140- 5F D2 E5 E7 E9 F3 F4 F2 
COMFIN 7148- ES A0 5A 5F C5 F8 ES E3 
7150- FS F4 E5 AO A0 SA 4C 4C 
7158- 4C 4C 4C 4C 4C 4C 4C 4C 
COMAND 7160- 4C 1F 29 08 00 6F 72 70 
7168- 72 71 72 72 72 73 72 74 
$BEO3 7170- 72 5F CC E9 F3 F4 E9 EE 
7178- E7 A0 5A 5F D4 E5 F8 F4 
7180- A0 B4 BO AO 5A 5F D4 ES 
7188- F8 F4 AO B8 BO A0 5A 5F 
$SBEOF 7190- C8 E7 F2 A0 B1 A0 AO A0 
$BEOC 7198- 5A $F C8 E? F2 A0 B2 A0 
71A0- A0 A0 5A 5F C4 C8 C7 D2 
71A8- A0 A0 A0 A0 5A 4C 4C 4C 
"CATALOG" 71B0- 4C 4C 4C 4C 4C 4C 4C 2B 
8D 71B8- 39 05 00 75 72 7B 72 81 
71C0- 72 5F D6 D4 C2 CC AO CF 
71C8- C6 C6 AO AO AO AO 5A 5F 
71D0- D6 D4 C2 CC A0 CF CE A0 
71D8- A0 A0 AO A0 SA 5F CD CF 
71E0- D5 D3 C5 AO CF C6 C6 A0 
71E8- A0 A0 5A 4C 4C 4C 4C 4C 
71F0- 4C 4C 4C 4C 4C 4C 4C 4C 
71F8- 4C CC CS 00 00 60 60 60 
7200- 78 A2 F9 AO 75 8E E2 75 
7208- 8C E3 75 20 DF 75 58 60 
7210- 78 A2 20 A0 72 8E E2 75 
00 00 7218- 8C E3 75 20 DF 75 58 60 
00 00 7220- AD D7 CF D2 CB C6 C9 CC 
00 17 7228- C5 8D 00 78 A2 3B A0 72 
63 70 7230- 8E E2 75 8C E3 75 20 DF 
0E 1E 7238- 75 58 60 CC CF C1 C4 A0 
71 2C 7240- D7 CF D2 CB C6 C9 CC CS 
A0 DO 7248- 8D 00 78 A2 5A A0 72 8E 
A0 A0 7250- E2 75 8C E3 75 20 DF 75 
A0 A0 7258- 58 60 D3 C1 D6 C5 AO D7 
D2 A0 7260- CF D2 CB C6 C9 CC CS 8D 
c9 cD 7268- 00 60 60 60 60 60 60 60 
CD CF 7270- 60 60 60 60 60 A9 07 8D 
00 FD 7278- 1A 70 60 A9 OF 8D 1A 70 
E3 A9 7280- 60 A9 01 8D 1A 70 60 BE 
D4 ci 7288- 00 C4 8E 94 72 AE 1C 70 
c3 E1 : : 
F4 ES Suite de la récapitulation 
CA:El page 73... 
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ficro-Informa 
Jean-Michel Gourévitch 


ans un univers 





| par les annonces 
et les nouveautés d'IBM, 
Apple est curieusement 
devenu un symbole de 
stabilité. 


Résultat la clientèle se 
transforme. Ainsi, en France, 
plus de 20% des Macintosh sont 
actuellement vendus à des 
sociétés figurant parmi les 100 
premières entreprises du pays. Et 
ce changement de profil des 
utilisateurs ne manquera pas de se 
répercuter sur les futurs produits 
de la firme de Cupertino. 
L'interchangeabilité des fichiers 
avec le monde IBM étant devenue 
une priorité, Apple sortira dès 
septembre un lecteur (Apple 5°25 
PC) capable de lire des 
disquettes IBM, ainsi qu'un 
système de récupération sur le 
Mac des fichiers de l'IBM, 
baptisé Apple File Exchange. 


Les autres annonces à venir 
d'Apple concernent des logiciels 
de  télécommunication ainsi 
qu'un programme baptisé Wild 
Card et écrit par Bill Atkinson, 
l'auteur de MacPaint, qui serait à 
la fois un générateur d'application 
et un instrument d'intelligence 
artificielle. Du côté des 
imprimantes, on étudie à 
Cupertino un modèle couleurs 
ainsi qu'une Laser Writer de bas 
de gamme (ne comportant pas le 
langage PostScript). À propos de 
PostScript, il faut signaler la 
sortie d'un livre en français sur ce 
langage de programmation 
particulier. L'ouvrage de 164 


pages distribué par BIP est divisé 
en deux parties : une introduction 
à PostScript et un recueil de 
programmes. Livre seul 
285,00 F. Livre et disquette 
d'accompagnement : 550,00 F. 
LaserPaint de DOS Ltd, aussi 
distribué par BIP, est un logiciel 
de pilotage pour la Laser Writer 
Apple et les photocomposeuses 
PostScript. 6 300,00 F, en 
français. 


Le logiciel de lecture optique 
automatique et reconnaissance de 
caractères dactylographiés 
READSTAR ][+ d'INOVA- 
TIC est maintenant disponible 


pour Macintosh Plus. 
43 000,00 F H.T. avec un 
scanner Microtek 300A. 


Dans son dernier numéro, Pom's 
annonçait la création de lecteurs 
employant des disquettes de 10 
ou 20 Mégas. Ils n'auront pas 
mis longtemps à déferler sur le 
marché. Jasmine, qui fabriquait 
déjà des disques durs parmi les 
moins chers du marché, propose 
désormais un lecteur employant 
des disquettes de 10 Mégas de 
format 5’1/4 (comme les 
anciennes disquettes de l'Apple 
]J[, mais conditionnées dans un 
étui plastique analogue aux 
disquettes 3,5 pouces du Mac). 
Prix pour le “Mega Drive” : 999 
dollars et, pour chaque disquette : 
40 dollars. 


Cette même firme propose un très 
ingénieux disque dur de 40 
mégas, le MacBack, qui se fixe 
simplement au dos du Macintosh. 
Prix : 1300 dollars. 


Pour les logiciels, c'est à la 
rentrée, et particulièrement pour 
l'Apple Expo d'octobre, qu'il 
faut s'attendre à des nouveautés. 
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En attendant, voici des rééditions 
et des V.F. 


Nouvelles versions 


Une nouvelle version du tableur 
Trapeze (distribué en France par 
Alpha Systèmes). La 2.0 
intègre en plus des possibilités de 
se construire son tableur ‘en kit’, 
un grapheur sophistiqué, qui 
mettent encore davantage ce 
tableur à part, et le rapprochent 
d'un programme de mise en 
page. 


Une nouvelle édition de 
Sidekick, l'ensemble 
d'accessoires de bureau de 
Borland, contient plusieurs 
accessoires de bureau s'installant 
dans le menu #,et ajoute 
notamment un mini-tableur, un 
mini-traitement d'idées, aux 
accessoires précédents. 


Nouvelle version aussi, la 2.1 
d'Over VUE, ‘Gestionnaire 
Relationnel Multifichier’ francisée 
et distribué par Soulat Frères 
S.A., plus rapide que la version 
précédente. 


Publication 
électronique 


C'est toujours le ‘must’. Target 
Software met la dernière main à 
Scoop, un logiciel de PAO 
permettant d'entourer le texte 
autour d'objets irréguliers, de 
remplir une image de textes, de 
pratiquer un crénage fractionnel 
entre les lettres, de réduire les 
espaces entre les lignes ou entre 


de faire pivoter une image, etc. 


les mots, d'allonger un caractère, 











71 


12 





Letraset se prépare à sortir la 
version 3.1 (encore améliorée!) 
de Ready Set Go, Mindscape 
présente Graphics Works 
1.1, un outil permettant de 
peindre, dessiner, écrire, éditer 
des documents professionnels. 
Italsoft vend en France 
Ragtime, un traitement de textes 
évolué, avec un tableur (très 
complet) et des fonctions de 
micro-édition. 


Microsoft a sorti avant les 
vacances, en France et dans notre 
langue, Works son logiciel 
intégré (traitement de textes, 
gestion de fichiers, tableur) ainsi 
que Word 3.0, la toute nouvelle 
version du célèbre traitement de 
textes comprenant césure 
automatique et correcteur 
orthographique intégré, qui en 
font un des plus puissants outils 
du marché, en concurrence 
directe avec Writer Plus, sur 
lequel il a l'avantage d'une 
parfaite fiabilité. 


Éducation 


Il manquait au Macintosh un 
système auteur. C'est une 
omission réparée avec Dr Léo 
d'Apigraph, qui permet aux 
enseignants de produire eux 
mêmes des didacticiels adaptés à 
leurs élèves, reposant notamment 
sur l'utilisation d'un livre 
interactif, de livres annexes, et 
d'un cahier de l'élève. 


Matériel 


Du côté des matériels, 
P-Ingénierie vend un boîtier 
miracle baptisé Multi Talk. Ce 
boîtier permet de bancher et de 
rendre partageable sous le réseau 
Apple Talk des périphériques qui 
n'étaient pas étudiés pour cela. 
Aüïnsi, plusieurs utilisateurs nantis 
chacun d'un Mac peuvent 
désormais se partager une 
ImageWriter, ou un modem. 


Puisque la vogue de la 
publication électronique ne faiblit 
pas, International Computer 
propose des écrans pleine page 
parmi les moins onéreux et 
s'installant par ‘clipage’ et donc 


sans dommage au Mac : 
Dimension 15 (vertical A4 
résolution 720 x 900 : 17 671 F), 
Dimension 17 (vertical A4 
résolution 768 x 1024: 23 600 F) 
et Dimension 19 (horizontal A3 
résolution 1024 x 915 : 24 800 
F). 


Transformer son Mac en 
puissante station de travail ? C'est 
possible avec Workstation 
vendu par Abvent. Pour 25 à 
50 000,00 Francs, ces cartes 
ajoutent un processeur Motorola 
68020 tournant à 12 ou 16 
mégahertz et un coprocesseur 
mathématique 

Autre périphérique intéressant : 
l'Organizer II de Psion, 
vendu par KA. Il s'agit d'un 
véritable micro-ordinateur 
miniature de la taille d'une grosse 
calculette, disposant d'un 
langage de programmation, 
permettant de saisir sur le terrain 
des informations, puis de les 
transmettre et de les récupérer sur 
le Macintosh. Un logiciel File 
Pak permet de créer des fichiers 
et de les manipuler, sans 
connaître la programmation. 


Quant à Thunderscan, le 
numériseur s'installant dans 
l'imprimante ImageWriter à la 
place du ruban, il a été 
sérieusement perfectionné et 
permet notamment d'entourer les 
images dans des formes variés, 
de réaliser des dégradés, de 
sauvegarder les images en 
Postscript ou en TIFF, ce qui le 
rend parfaitement compatible avec 
PageMaker. À remarquer que ce 
même Thunderscan est désormais 
aussi disponible pour l'Apple // et 
le IGs. 


Ada sur le Mac 


Alsys, créateur du langage Ada, 
vient de signer un accord avec 
Apple Computer pour le 
développement d'un compilateur 
Ada destiné au Macintosh II. 
Rappelons que ce langage, 
développé principalement par 
Jean D. Ichbiah, président 
d'Alsys, a reçu l'agrément du 
gouvernement américain et a 
aussi été adopté par la NASA. 


L'Apple // ? 


Les programmes: destinés au GS 
de Version Soft (et 
particulièrement GSWrite) ont 
connu quelques problèmes de 
mise au point, épuisant parfois la 
patience des utilisateurs. 


Pour l'Apple //, voici un nouveau 
disque dur de. 320 mégas, le 
Data Exchange de CMS 
Enhancements. Une nouveauté 
importante permettant de se relier 
également au Mac et de partager 
des dossiers entre les deux 
familles Apple. 


On peut en ce moment trouver, 
chez les revendeurs Apple, une 
plaquette publicitaire donnant une 
liste de quelques programmes qui 
‘tournent’ sur le GS : 
+ Graphique 

o GS/Paint 

o  VS/Draw 

°  GraphicWriter 

°o De Luxe Paint 

° Slide Show 

o Chairman 

o  Visualizer 

o Démo QuickDraw 
+ Son 

o  Digitalisation sonore 

o Synthé 

° Music Construction Set 

o Démo QuickDraw 
+ Éducation & 

Productivité personnelle 

°o  AppleWorks 

o GS/Paint 

o GS/Write 

o VS/Com 

o  VS/Draw 

e  GraphicWriter 

o  Visualizer 

o De Luxe Paint 


+ Education & 
Loisirs 
o Géographie 
o Logo 
o Color Mind 
°o  Digitalisation sonore 
eo  Synthé 
o Slide Show 
° Music construction set 
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o Démo QuickDraw sac de transport pour Macintosh 114, bd Blanqui 
o Chairman baptisé MACROCO. L'objet, 75013 Paris 
AL fabriqué en série limitée, est en æ 47 07 35 65 
* Utilitaires & cuir ler choix et crocodile. CMS Enh t 
Outils de développement . ' nhancements 
8 302,00 F (quand même !), 3080 À Airway Av 
°_ MouseDesk chez Kangourou services. Costa Mess C F4 USA 
o Chooser 
o  Memsoft Adresses Apigraph 
° 32 bis, quai JB Simon 
° Basic AppleSoft 69270 Fontaines s/ Saône 
°  Digitalisation sonore Jasmine Technologies 
o Logo 555 de Haro St San Francisco Abvent 
: CA 94107 53, avenue de Breteuil 
o Slide Show 75007 Pari 
I è 5007 Paris 
Go Alpha Systèmes = 471 34 43 98 
* Gestion 18, avenue d'Alsace Lorraine 7 34 
°_ Sénior " 38000 Grenoble BIP 
e  Memsoft Comptabilité æ 76 43 19 97 13, rue Duc 
°  Memsoft Ventes P-Ingénierie 75018 Paris 
°_ Memsoft Paye 226, bd Raspail 5 42 55 44 63 
° _ Memsoft Microbase 75014 Paris Alsys 
z 43 21 93 36 29, avenue de Versailles 
Jeux International Computer 78170 La Celle St Cloud 
Sur le front des jeux, voici un 26, rue du Renard INOVATIC 
buveal RARE A vol 75004 Paris Immeuble Les Quadrants 
Falcon de S ectrume 7 42 72 26 26 3, avenue du Centre 
ds 78180 Montigny le Bretonneux 
Holobyte, qui représente le KA 2 30 57 22 11 
poste de commande d'un F16, 14, rue Magellan 
avec son viseur tête haute, ses 75008 Paris Soulat Frères S.A. 
bruits de réacteurs numérisés, la  æ 47 23 72 00 Département micro-informatique 
détection radar, etc. Le même Borland 45-47, rue de la Division Leclerc 
éditeur propose un simulateur de Les Postillons des Bruvè 94259 Gentilly 
; na s Postillons des Bruyères 
vedette lance torpille baptisé PT 65 de la G æ 47 40 00 20 
109 r = , rue de la Garenne 
07 (du nom de la vedette où 92318 Sèvres Kangourou services 
s'illustra pendant la guerre le Mindscape BP. 19 
# 2 1 . . : 
défunt président Kennedy). P.O. Box 1167 54130 Saint Max Cedex 
; . æ 83 21 25 33 
On termine ces micro-  Northbrook IL 60065 
informations dans le luxe avecun  Italsoft 
7350- 73 20 7B 73 60 20 70 73 7438- A6 73 60 AD OD 70 DO 08 7520- 72 20 55 73 A0 14 20 87 
7358- AD OA 70 20 F7 74 AD 0C 7440- AD OA 70 FO 04 20 A6 73 7528- 72 20 EB 73 20 26 73 18 
. suite de la page 70 7360- 70 20 4B 73 60 A5 28 8D 7448- 60 A2 00 AD 08 ?Q AC 13 7530- AO 12 AD 1A 70 20 87 72 
7368- 04 70 A5 29 8D 05 70 60 7450- 70 C8 88 30 FO E8 E8 E8 7538- 7A FA 68 40 A9 00 8D 78 
7370- A5 28 8D 06 70 A5 29 8D 7458- EE 0D 70 DD 1D 70 F0 1F 7540- 04 8D 78 05 AC 15 70 AD 
7290- AC 1D 70 20 00 C4 60 8D 7378- 07 70 60 AD 06 70 85 28 7460- 10 F0 20 70 73 A9 00 20 7548- 16 70 20 C3 72 8D F8 05 
7298- A3 72 8E A4 72 8C A5 72 7380- AD 07 70 85 29 60 A2 04 7468- F7 74 AC 08 70 20 22 73 7550- 8C F8 04 8A A0 17 20 87 
72A0- 20 00 BF 00 FF FF 60 A0 7388- BD 78 05 BC 78 04 20 BQO 7470- 48 20 7B 73 68 C9 A0 F0 7558- 72 8A 8D 78 04 8D 78 05 
72A8- 12 AD 1A 70 20 87 72 60 7390- 72 8D 09 70 8C 08 70 A2 7478- CC CE 0D 70 CA CA CA AD 7560- AC 17 70 8A 20 C3 72 8D 
72B0- AE 03 70 8C 18 70 18 D& 7398- 04 BD F8 05 BC F8 04 20 7480- OD 70 8D 14 70 BC 1B 70 7568- F8 05 8C F8 04 8A 1A A0 
72B8- 6A 6E 18 70 CA DO F9 AC 73A0- BO 72 8C OA 70 60 9C 0D 7488- BD 1C 70 F0 B8 8D B3 73 7570- 17 20 87 72 60 20 00 C3 
72C0- 18 70 60 AE 03 70 8C 18 73A8- 70 9C 0B 70 60 BD 00 FF 7490- 8D AF 73 8C B2 73 8C AE 7578- 20 39 FB 20 58 FC A9 02 
72C8- 70 18 D8 2E 18 70 2A CA 73B0- 60 9D 00 FF 60 20 70 73 7498- 73 0E 0D 70 0E O0D 70 0E 7580- 85 22 A9 00 20 F7 74 A0 
72D0- DO F9 AC 18 70 60 84 1F 73B8- A2 02 AD 0B 70 DO 05 A2 74A0- O0D 70 0E O0D 70 A2 00 20 7588- 01 B9 32 70 FO 06 20 27 
72D8- 48 AD 1F CO 10 32 A5 1F 73C0- 01 AD OA 70 20 F7 74 AC 74A8- AD 73 8D OF 70 E8 20 AD 7590- 73 C8 DO F5 A9 01 20 F7 
72E0- 4A A8 70 16 08 78 AD 55 73C8- OF 70 20 22 73 C9 5F F0 74B0- 73 8D 10 70 E8 20 AD 73 7598- 74 A9 53 AO 4F 20 27 73 
72E8- CO 90 03 AD 54 CO B1 28 73D0- 08 C9 44 DO 06 A9 5F DO 74B8- F0 8B 8D 11 70 OA AA 8E 75A0- 88 10 FA 20 58 FC A9 0F 
72F0- A8 AD 54 C0 28 68 98 48 73D8- 02 A9 44 20 27 73 AD CA 74C0- 12 70 20 70 73 AE 12 70 75A8- 8D 1A 70 A9 A0 8D 
72F8- 50 24 68 48 08 78 48 AD 73E0- 70 8D 0B 70 CA DO DD 20 74C8- A9 01 48 20 F7 74 AC OF 75B0- A0 19 20 87 72 20 
7300- 55 CO 90 03 AD 54 C0 68 73E8- 7B 73 60 A2 04 BD 78 07 74D0- 70 20 22 73 C9 44 DO 02 75B8- A0 15 20 87 72 A0 
7308- 91 28 AD 54 C0 28 70 0E 73F0- 2A 2A 2A 29 03 49 03 FO 74D8- A9 5F 48 20 AD 73 20 27 75C0- 1A 70 20 87 72 A2 
7310- A4 1F 70 06 68 B1 28 46 73F8- 07 3A FO 3F 3A FO OF 60 74E0- 73 68 20 Bl 73 E8 C8 CC 75C8- 75 8E FE 03 8C FF 
7318- 50 04 68 48 91 28 68 A4 7400- AD 0D 70 FO 08 AD OA 70 74E8- 10 70 30 E5 68 1A CD 11 75D0- 4C 8D F5 03 A9 00 
7320- 1F 60 B8 20 D6 72 60 48 7408- F0 03 20 B5 73 60 AD 0D 74F0- 70 30 D7 20 7B 73 60 48 75D8- 03 A9 70 8D F7 03 
7328- 24 32 30 02 49 80 2C 35 7410- 70 F0 27 20 34 74 AD CA 74F8- 4A 29 03 09 04 85 29 68 75E0- 00 BD F9 75 9D 00 
7330- 73 20 D6 72 68 60 20 70 7418- 70 FO 1F 1A CD 11 70 10 7500- 29 18 90 02 69 ?F 85 28 75E8- 8D F0 03 E8 80 F3 
7338- 73 20 86 73 98 20 F7 74 7420- 19 OA AA 20 AD 73 8D 31 7508- OA OA 05 28 85 28 60 48 75F0- BE 60 AD OF BE 20 
7340- AC 08 70 20 22 73 8D 0C 7428- 74 E8 20 AD 73 8D 32 74 7510- DA 5A D8 A0 13 20 87 72 75F8- 60 C3 C1 D4 C1 CC 
7348- 70 A9 42 AC 08 70 20 27 7430- 20 00 00 60 20 C2 74 20 7518- B0 16 A0 12 A9 01 20 87 7600- 8D 
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Disquettes Apple ][ Macintosh 
CLV_Pom's - 140Ko ou 800Ko 200,00F [] CLV_Pom's  200,00F [1 
Éditeur Vidéotex : 140Ko 200,00 F C1  MacRaccourci 200,00F C] 
E.P.E. 5.1 - 140Ko 200,00 F [] MacAstuces  200,00F [] 
E.P.E. 5.1 - 800Ko 200,00 F [1] Mac ‘A’ 80,00F [] 
Max (moniteur étendu) - 140Ko 150,00F [1  Mac‘B’ 80,00 F C] 
BananaSoft - 140Ko 200,00 F [1] Mac ‘C' 80,00F C] 
Pascal - 140Ko 80,00 F [1 Mac ‘D’ 80,00F EC] 
Max (moniteur étendu) - 140Ko 150,00F [] Mac 'E" 80,00F C1 
Dominos - 140Ko 80,00 F C] Mac ‘F' 80,00F C] 
COGO - 140Ko 200,00F [1 Mac ‘G' 80,00F [1 
Ludologic - 140Ko 80,00 F C] Mac ‘H’ 80,00F [1 
Ordico - 140Ko 200,00 F [] Mac ‘|’ 80,00F OC 
Recueils Pom's Mac 14/15/16  150,00F [1 
Mac 17 80,00F C] 
Numéro 1 (Revues 1 à 4) 140,00 F [] Mac 18 80,00F [] 
Disquettes 1 à 4 200,00 F € Mac 19 80,00F [] 
Numéro 2 (Revues 5 à 8) 140,00 F [] Mac 20 80,00F [1 
Disquettes 5 à 8 200,00 F C1 Mac 21 80,00F C] 
Numéro 3 (Revues 9 à 12) 140,00 F [1 Mac 22 80,00F [] 
Disquettes 9 à 12 200,00F [1 Mac 23 80,00F [] 
Mac 24 80,00F [] 
reliures toilées Mac 25 80,00F [] 
pour 6 numéros, soit un an 60,00 F C1 Mac 26 80,00F C] 
Mac 27 80,00F [1 
Mac 28 80,00F C] 
Apple ][ 800Ko 3'5 numéro 29  80,00F [1 Mac 29 80,00F C] 
Apple ][ 800Ko 3’5 numéro 30  80,00F [] Mac 30 80,00F C] 
Apple ][ 800Ko 35 numéro 31  80,00F [] Mac 31 80,00F C] 
Revue n° 7 35,00F © Revue n° 8 35,00F [] 
Revue n° 11 40,00F [] Revue n° 12 40,00F [] 
Revue n° 14  40,00F © Revue n° 15 40,00F [] 
Revue n° 17 40,00F [] Revue n° 18 40,00F C1 
Revue n° 20 40,00F [] Revue n° 21 40,00F [1 
Revue n° 23  40,00F [] Revue n° 24 40,00F [C] 
Revue n° 26 40,00F [] Revue n° 27 45,00F [C] 
Revue n° 29 45,00F [] Revue n° 30 45,00F [] 


Abonnements pour six numéros à partir du 


la revue seule 





la revue et les disquettes Apple ][ 140Ko — 5" 1/4 
la revue et les disquettes Apple ][ 800Ko — 3" 1/2 


la revue et les disquettes Macintosh 


la revue, les disquettes Apple ][ 140Ko -5' 1/4 et les disquettes Mac 
la revue, les disquettes Apple ][ 800Ko — 3' 1/2 et les disquettes Mac 


Accompagnement 


A ][ 140Ko 3 

A ]L 140Ko 4 

A ][ 140Ko 5 

A JL 140Ko 6 

A ][ 140Ko 7 

A JL 140Ko 8 

A ][ 140Ko 9 

A ][ 140Ko 10 
A JL 140Ko 11 
À ][ 140Ko 12 
A ][ 140Ko 13 
A ][ 140Ko 14 
A ]L 140Ko 15 
À ]L 140Ko 16 
A ][ 140Ko 17 
À ][ 140Ko 18 
À ][ 140Ko 19 
A ][ 140Ko 20 
A ][ 140Ko 21 
À ][ 140Ko 22 
À ][ 140Ko 23 
À ][ 140Ko 24 
À ][ 140Ko 25 
À ][ 140Ko 26 
A ][ 140Ko 27 
A ][ 140Ko 28 
À ][ 140Ko 29 
À ][ 140Ko 30 
A ]L 140Ko 31 


60,00F [1] 
60,00 F [] 
60,00 F EC] 
60,00 F [] 
60,00F C] 
60,00 F EC] 
60,00F [] 
60,00F [] 
60,00F [] 
60,00F [] 
60,00F [] 
60,00F [] 
60,00F [] 
60,00F [] 
60,00 F 
60,00 F 
60,00 F 
60,00 F 
60,00 F 
60,00 F 
60,00 F 
60,00 F 
60,00 F 
60,00F [] 
60,00 F 
60,00 F 
60,00 F 
60,00 F 
60,00 F 
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Li 





OI 








CO 





OOUI 








Revue n° 10 
Revue n° 13 
Revue n° 16 
Revue n° 19 
Revue n° 22 
Revue n° 25 
Revue n° 28 
Revue n° 31 


, à: 


40,00 F 
40,00 F 
40,00 F 
40,00 F 
40,00 F 
40,00 F 
45,00 F 
45,00 F 





OCCOCO00C0O0D 


225,00 F 
525,00 F 
625,00 F 
625,00 F 
925,00 F 
1025,00 F 





OCO0O0OC 


* pour les envois par avion, ajoutez 15 F par numéro et/ou par disquette soit, par exemple, 90 F pour un abonnement avec ou sans disquettes. 





Envoyez ce bon et votre règlement à : Éditions MEV - 12, rue d'Anjou - 78000 Versailles 


Nom : 





Adresse : 





Règlement par: Carte Bleue/VISA C1 & 


numéro de la carte 


Montant 


Signature : 


Chèque bancaire [] 


Chèque postal L] 
date d'expiration 


Mandat [] 








Câble-interface de communication Apple/Minitel 


Cette liaison — décrite dans les numéros 27 et 28 de Pom's — est indispensable pour faire fonctionner les programmes suivants : 


+ MinBas pour Apple ][+, //e, //e+, /Ic et //GS* : programme permettant l'enregistrement des écrans Minitel, la restitution à loisir 
hors réseau, le stockage et/ou l'impression de copies d'écran du Minitel, et aussi l'envoide textes ou messages sur un serveur, ces 
messages étant préparés à l'avance avec n'importe quel programme de traitement de textes. Programme publié dans le numéro 27 
de Pomr's. 

+ Minitel/1 pour Macintosh : programme identique à MinBas pour Apple ][, avec en plus un mini-éditeur de texte pour la préparation 
et le stockage des messages sans sortir du programme. Programme publié dansle numéro 27 de Pom's. 

*_InterPom's pour Apple ][+, //e, //e+, /Ic et //IGS* : programme de téléchargement entre Apple ][ etou Apple ][ et Macintosh. Ce 
logiciel autorise la transmission de n'importe quel type de fichier (système, texte, binaire, Basic...) en utilisant le Modem du Minitel. 
Programme publié dans le numéro 28 de Pom's. 

*__InterPom's pour Macintosh : même programme, mais version Maaintosh. Programme publié dans le numéro 28 de Pom's. 

+ TPom's pour Apple ][+, //e, //e+, /ic et //GS** : programme de récupération de l'annuaire téléphonique sous la forme de fichiers 
texte. Voir page 53 du numéro 30. 

+ TPom's pour Macintosh : Identique à la version Apple J[. Voir page 42 du numéro 30. 


* ce programme est prévu pour fonctionner avec une carte Super Série Apple ; le port série intégré de l'Apple IIGS ne convient pas. 
Toutefois, si vous désirez utiliser le port intégré afin d'y connecter le Minitel pour d'autres applications, commandez un câble pour 
Macintosh Plus. 

“sur un Apple IIGS, TPom's fonctionne indifféremment avec le port série intégré ou la carte Super Série Apple. Pour connecter le 
port intégré du 1IGS, utilisez un câble pour Macintosh Plus. 


Je désire recevoir: câble Minitel/Apple ][+, //e, //e+, les avec SSC  _ à 225,00F 
‘ câble Minitel/Apple //c _____ à 225,00F 

câble Minitel/Macintosh 128 & 512Ko _____ à 225,00F 

câble Minitel/Macintosh Plus, [les port intégré ____ à 225,00F 

câble Minitel/IBM PC* ____ à 225,00F 

câble de liaison locale Apple I/Mac/IBM"* * à 225,00F 


"(préciser le type des deux machines à relier : Mac 512, Mac Plus, Apple //e //c, IIGS, IBM PC PC ) 


* pour les envois par avion, ajoutez 15 F par câble. 





Envoyez ce bon et votre règlement à : Éditions MEV — 12, rue d'Anjou — 78000 Versailles 


Nom : el 
Adresse : RS à 
Règlement par : Carte Bleue/VISA C1 & Chèque bancaire [] Chèque postal [] Mandat [] 
numéro de la carte date d'expiration __ _ 


Montant PRE à Signature : 





Programme de transmission InterPom's 


Ce programme décrit pages 53 et 54 vous donne la possibilité d'échanger à distance via Minitel et en local des fichiers de texte entre 
Apple //, Macintosh et IBM PC'*. Entre deux machines de même type, tous les fichiers sont transférables : Applications, polices de 
caractères, accessoires de bureau, commandes, documents graphiques etc. 


Je désire recevoir: Inter Pom's pour Apple //, disquette 140Ko, 5'25 à 450,00F 

InterPom's pour Apple //, disquette 800Ko, 3'25 à 450,00F 

InterPom's pour Macintosh, disquette 3'25 à 450,00F 

InterPom's pour IBM PC"* à 450,00F 
* pour les envois par avion, ajoutez 15 F par disquette. 
Envoyez ce bon et votre règlement à : Éditions MEV - 12, rue d'Anjou - 78000 Versailles 
Nom : Se 
Adresse : EE — 
Règlement par : Carte Bleue/VISA C1 & Chèque bancaire [1 Chèque postal [] Mandat LC] 
numéro de la carte 2 2 date d'expiration __ __ __ 


Montant Pl à Signature : 
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Je désire recevoir — sans engagement -— votre 
documentation sur les cartes Speedisk 





[| - = : | 
L'anti-disque 
Speedisk, 
la RAM Card à mémoire permanente 


Rapidité Temps d'accès à l'information : 0.2 ms 
(100 fois plus rapide que les disques 
durs...). 

Par exemple : 
démarrage sur Basic.System en 35, 
AppleWiiter disponible en à peine 1 s. 


Fiabilité Constituée de circuit CMOS à très 
faible consommation, Speedisk est 
aussi fiable que l'ordinateur lui-même. 
Elle est insensible à l'environnement. 


Capacité speedisk est proposée en quatre 
versions : 
1 Mo (1 048 576 octets) 
384Ko extensible à 1Mo 
avec horloge compatible ProDOS 
(pour les Apple )(+, //e) ou sans (IGS) 


Compatibilité 100% compatible avec ProDOS (c'est 


un volume), Speedisk fonctionne sur 
Apple )(+*, sur Apple //e et sur Apple 
GS. 


Prix Lecteur de Pom's, vous bénéficiez 
d'une remise de 10 % : 


SP400 

384Ko 392000 359100 
SP1000 

1 Mo 599000 5 391,00 
SPAOOH 

384Ko horloge 458000 412200 
SP1000H | 

1 Mo horloge 6 58e 5 922,00 


Garantie Speedisk est une fabrication française 
garantie un an par échange de la 
carte. 


* Sur Apple )(+, ProDOS nécessite la carte langage. 


Vente par correspondance, LOGMA S.A. 
documentation, 12, rue d'Anjou 
renseignements 78000 Versailles 

Tél : (1) 39 51 24 43 


Speedisk 





